надо написать программу: ввести 10 любых чисел и посчитать сколько из этих чисел положительных
Answers & Comments
Ацетатик
Program suma; const n = 10; Var a:array [1..n] of integer; i, sum:integer; begin sum:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] < 0 then Inc(sum); write(sum); end.
Answers & Comments
const n = 10;
Var a:array [1..n] of integer;
i, sum:integer;
begin
sum:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do if a[i] < 0 then Inc(sum);
write(sum);
end.