Дано 5 чисел. Определить сколько среди них положительных. Составьте, пожалуйста программу...

Question

Дано 5 чисел. Определить сколько среди них положительных. Составьте, пожалуйста программу в Паскаль

Answer 1

var a:array[1..5] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to 5 do

read(a[i]);

for i:=1 to 5 do

if a[i]>0 then s:=s+1;

writeln(s);

end.

Вопросы, ошибки недочеты в ЛС!)