нужна помошь(буду благодарен очень)

[loloverg]

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

[Hacker19_90]

3)

for i := 1 to 7 do
begin
    if A[i] = 0 then
        A[i] := sqrt ((75 + i) / (75-i))
end;

[ROMA2PVT]

-II-

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,'; нулевых=',kolnul);