нужно исправить ошибки(

[basav1k]

Помогите исправить ошибки в ПАСКАЛ

Завдання 3.
В массиве А (7) изменить все нулевые элементы значениями z = sqrt ((75 + n) / (75-n)), где n-порядковый номер нулевого элемента.
Завдання 4.
Написаты программу, которая вычисляет количество положительных, отрицательное, нулевых элементов двумерного массива. Элементы массива задано функцией a [i, j] =і*і+ sin (j + П).

program 4;
uses crt;
const n=7;
var i:integer;
begin clrscr;
i:=0;
if a[i,j]>0 then
begin
a[i,j]=i*i+sin(j+pi);
begin
inc(kolpol);
end;
if a[i,j]<0 then
begin
inc(kolotr);
end;
if a[i,j]=0 then
begin
inc(kolnul);
end;
end;
writeln;
end;
writeln;
writeln('+ =',kolpol,'; - =',kolotr,'; 0 =',kolnul);
end.



program 3;
Uses
Crt;
Const
n=7;
var
a:array [1..n] of integer;
i:integer;
begin
clrscr;
for i := 1 to 7 do
begin
if A[i] = 0 then
A[i] := sqrt ((75 + i) / (75-i))
end;
writeln
end.

[ROMA2PVT]

какой(ая) вы умница.Код копировать умеете а вот кнопочкой # выделять ненаучились.Открою небольшой секрет для того чтобы заменить нулевые элементы и вычислить количество +,- и нулевых нужно массив сначала заполнить.

[ROMA2PVT]

-II-

program fdsf;
uses crt;
var
i,j,n,m,kolpol,kolotr,kolnul:integer;
a:array[1..20,1..20] of real;
begin
clrscr;
kolpol:=0;
kolotr:=0;
kolnul:=0;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=(i*i)+sin(j+pi);
write(a[i,j]:1:1,'  ');
if a[i,j]>0 then
begin
inc(kolpol);
end;
if a[i,j]<0 then
begin
inc(kolotr);
end;
if a[i,j]=0 then
begin
inc(kolnul);
end;
end;
writeln;
end;
writeln;
writeln('+ =',kolpol,'; - =',kolotr,'; 0 =',kolnul);
end.

Ток нафик искать отрицательные и нулевые элементы если их при вычислении по этой формуле небудет.
-I-

Uses
Crt;
Const
n=7;
var
a:array [1..n] of real;
i:integer;
begin
clrscr;
writeln('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(5)-2;
write(a[i]:1:4,' ');
if A[i]=0 then
A[i]:=sqrt((75+i)/(75-i));
end;
writeln;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
write(a[i]:1:4,' ');
end;
writeln;
end.

[basav1k]

спасибо большоэ ти мне очень помог!!!!!