дан одномерный массив значения элементов которого вводятся с клавиатуры выяснить каких элементов больше положительных или отрицательных и насколько на экран вывести исходный массив И полученный результат
Помогите срочно
Помогите срочно
Answers & Comments
var a:array[1..n] of integer;
i,x,y:integer;
begin
x:=0;
y:=0;
Writeln('Введите элементы массива');
for i:=1 to n do begin
Write('a[',i,']=');
Readln(a[i]);
if (a[i]>0) then inc(x);
if (a[i]<0) then inc(y);
end;
writeln (a);
if (x>y) then write('Положительных больше');
if (x<y) then write('Отрицательных больше');
if (x=y) then write('Количество отрицательных и положительных равно');
end.