Задан одномерный массив из n элементов. Найти количество отрицательных элементов массива.

Question

написать надо на паскале и нарисовать блок схему, кто умеет, помогите пожалуйста

user_3172588 · Accepted Answer

var i, n, k: integer;
a: array [1..100] of integer;
begin
write ('n=');
readln (n);
k:=0;
for i:=1 to n do
begin
a[i]:= -9 + random (19);
write (a[i]:4);
if a[i] < 0 then inc(k);
end;
writeln; 
writeln ('количество отрицательных элементов = ', k);
end.

user_34152442 · Answer

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