Задача 43285 3. СОСТАВИТЬ АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ НА...

vk559996981

2020-01-09 13:23:58

3. СОСТАВИТЬ АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ НА ЯЗЫКЕ ПАСКАЛЬ И НАРИСОВАТЬ ЕГО БЛОК-СХЕМУ
Даны последовательность чисел и число n – количество элементов последовательности. Найти количество отрицательных элементов последовательности.

slava191

2020-01-09 16:26:36

const N = 30;
var
a: array[1..N] of integer;
i, neg: byte;
begin
randomize;
neg := 0;
for i:=1 to N do begin
a[i] := random(100) - 50;
write(a[i]:4);
if a[i] < 0 then
neg := neg + 1
end;
writeln;
writeln('Отрицательных: ', neg);
end.