Дан одномерный массив значения элементов которого вводятся с клавиатуры выяснить каких элементов больше положительных или отрицательных и насколько на экран вывести исходный массив И полученный результат
Помогите срочно

Const n=10;
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 (xif (x=y) then write(Количество отрицательных и положительных равно);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.