После завершения цикла остается только вывести на экран значения переменных pos и neg, которые содержат количества положительных и отрицательных элементов массива.
Исходный код программы поиска количества положительных и отрицательных элементов массива на языке Pascal:
const N = 30;
var
a: array[1..N] of integer;
i, pos, neg: byte;
begin
randomize;
pos := 0;
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
else
if a[i] > 0 then
pos := pos + 1;
end;
writeln;
writeln('Положительных: ', pos);
writeln('Отрицательных: ', neg);
end.
Объяснение:
