Question

Написать программу: найти минимальный среди положительных элементов массива. Интервал: от -20 до 150

Answer 1

Пишу на QBasic
массив создан и заполнен
PRINT "Введите количество элементов массива"
INPUT N
MIN= 150
FOR I = 1 TO N
IF I  <MIN AND I>0 THEN
MIN = I
END IF
NEXT I 
PRINT MIN

Answer 2

да говорю ж, Паскалем надо