Question

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

Answer 1

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.