Дан массив из 10 элементов. Найти количество положительных элементов, сумму отрицательных и кол-во нулей.

SilvAqualius SilvAqualius    1   08.04.2021 21:10    1

Ответы
nikita2024 nikita2024  08.04.2021 22:00

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика