Var mas: array[1..10] of integer; plus, minus, i:integer; begin randomize; write('Массив: '); for i := 1 to 10 do begin mas[i]:=random(10)-5; write(' ',mas[i]); if (mas[i] > 0) then plus:=plus+1; if (mas[i] < 0) then minus:=minus+1; end; writeln(); writeln('Положительных = ', plus); writeln('Отрицательных = ', minus); end.
mas: array[1..10] of integer;
plus, minus, i:integer;
begin
randomize;
write('Массив: ');
for i := 1 to 10 do begin
mas[i]:=random(10)-5;
write(' ',mas[i]);
if (mas[i] > 0) then
plus:=plus+1;
if (mas[i] < 0) then
minus:=minus+1;
end;
writeln();
writeln('Положительных = ', plus);
writeln('Отрицательных = ', minus);
end.