по паскалю по одномерным массивам

[zizu]

Вотнесколько задачь....
1). В одномерном массиве Y, состоящем из N целых элементов, вычислить:
a) количество нулевых элементов;
b) произведение элементов кратных 5.

2) Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент каждого столбца.

3) Сформировать квадратную матрицу порядка n по заданному образцу:
1∙2 0 0 … 0 0 0
0 2∙3 0 … 0 0 0
0 0 3∙4 … 0 0 0
…………………………….
0 0 0 … 0 (n-1)∙n 0
0 0 0 … 0 0 n∙(n+1)










ПЛиииииззз оч надо...

[werser]

1.
for i:=1 to n do
begin for j:=1 to n do
begin
if a[i][j]=0 then x:=x+1;
end;
end;

x - количество 0-ых

[werser]

2. for i:=1 to n do
begin min=a[1][i];
for j:=1 to n do
begin
if a[j][i]<min then min:=a[j][i];
end;
Write(min);
end;

[zizu]

спс..а еше ченить сможешь решить...=)

[werser]

3.
for i:=1 to n do
begin for j:=1 to n do
begin
if i=j then a[i][j]=i*(i+1) else a[i][j]=0;
end;
end;

[zizu]

а к первой ты ток (а) смог сделать

[werser]

Б.
for i:=1 to n do
begin for j:=1 to n do
begin
if ((a[i][j])mod(5)=0) then s:=s*a[i][j];
end;
end;

[zizu]

спс=)я твой должник=)

[zizu]

а можешь полностью программу к каждой написать а то я нуб полный в этом...=)

[werser]

program 3;
uses crt;
var A:array[1..10,1..10] of integer;
j,i,n,m:integer;
begin
clrscr;
writeln('vvedite razmernost massiva');
write('n = ');
readln(n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do begin
write('A[',i,':',j,']=');
readln(A[i][j]);
end;end;
for i:=1 to n do
begin for j:=1 to n do
begin
if i=j then a[i][j]=i*(i+1) else a[i][j]=0;
end;
end;
writeln;
writeln('massiv');
writeln;
for i:=1 to n do begin writeln;
for j:=1 to n do begin
write(A[i][j],' '); end; end;
readln;
end.