3. Дан массив А, состоящий из 11 элемента. Найти и отпечатать наименьший из его положительных элементов, предполагая, что они есть среди элементов массива.

Question

Информатика

Эдуард

29 января, 21:32

3. Дан массив А, состоящий из 11 элемента. Найти и отпечатать наименьший из его положительных элементов, предполагая, что они есть среди элементов массива.

+4

Ответы (1)

Знаете ответ на вопрос?

Потап · Answer 1

Var a:array[1 ... 1000]of longint;

n, i, min:longint;

begin

min:=1000;

read (n) ;

for i:=1 to n do

begin

read (a[i]) ;

if (min>a[i]) and (a[i]>0) then min:=a[i];

end;

write (min) ;

end.