Надо написать программу: ввести 10 любых чисел и посчитать сколько из этих чисел положительных
какой язык
Паскаль
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.