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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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. Вопросы, ошибки недочеты в ЛС!)