Найти минимальный элемент массива- QBasic(Бейсик)

LS 
  N = 15 
  PRINT "Massiv: ";
  DIM M(N) 
  FOR I = 1 TO N 
  M(I) = INT(RND * 100) 
  PRINT M(I) ;
  NEXT I 
  MIN=M(1)
  FOR I = 2 TO N 
  IF MIN > M(I) THEN MIN=M(I)
  NEXT I 
  PRINT
  PRINT "_________" 
  PRINT "Minimum = "; MIN

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment