10 вводится 10 целых чисел. найти первый положительный элемент и вывести его на экран. если положительных элементов нет, то ничего не выводить.

Rinyasan Rinyasan    3   19.09.2019 04:10    0

Ответы
ггггггггггггжз ггггггггггггжз  08.10.2020 01:27
Const n=10;
Var a:array[1..n] of integer; i:integer;
Begin
i:=1;
While i<=10 do begin
Readln(a[i])
If a[i] >0 then begin
writeln(a[i]) ;
i:=i+n;
end;
i:=i+1;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика