ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА!!!! ДАЮ 10 БАЛЛОВ Вводится 10 целых чисел. Найти первый...

Question

ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА!!!! ДАЮ 10 БАЛЛОВ
Вводится 10 целых чисел. Найти первый положительный элемент и вывести его на экран. Если положительных элементов нет, то ничего не выводить.

Answer 1

Const n=10;
Var a:array[1..n] of integer; i:integer;
Begin
i:=1;
While i<=10 do begin<br>Readln(a[i])
If a[i] >0 then begin
writeln(a[i]) ;
i:=i+n;
end;
i:=i+1;
end;
end.