Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Определить количество чисел больших 0 среди: а1, а2...а10 (паскаль)

Ответ оставил Гость

Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln(vvedite massiv);
for i:= 1 to n do 
readln(a[i]);
k:=0;
for i := 1 to n do 
if a[i]>0 then 
 inc(k);

writeln(kolicestwo =,k);

readln;
end.