Question

написать программу  которая определяет количество отрицательных элементов массива. Размер- 10 элементов. диапозон -10 до 10. в случайных числах.массив не выводить 

Answer 1

var
m : array [0..9] of Integer;
c, i : integer;
begin
c:=0;
for i := 0 to 9 do begin
read(m[i]);
if m[i] < 0 then
 c:= c+1;
end;
write(c);
end.