Дан массив из 10 элементов целого типа определить количество положительных и отрицательных элементов массива.

deniskin278 deniskin278    2   12.09.2019 18:10    1

Ответы
mddfdfdf mddfdfdf  07.10.2020 10:09
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика