5
var a:array[1..3,1..3] of real;
i,j,n:integer;
begin
{ввод данных}
n:=0;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if a[i,j]=0 then n:=n+1;
end;
end;
writeln(n);
end.

5
var a:array[1..4,1..3] of real;
i,j,n:integer;
begin
{ввод данных}
n:=0;
for i:=1 to 4 do
begin
for j:=1 to 3 do
begin
if a[i,j]>1 then n:=n+1;
end;
end;
writeln(n);
end.

6
var a:array[1..5,1..5] of real;
i,s:integer;
begin
{ввод данных}
s:=1;
for i:=1 to 5 do s:=s*a[i,i];
writeln(s);
end.

8
var b:array[1..5,1..5] of real;
c:array[1..5] of real;
i:integer;
begin
{ввод данных}
s:=1;
for i:=1 to 5 do c[i]:=a[i,i];
end.

P.s. Написал то, что попроще. Отсутствие ошибок НЕ гарантирую!

А насколько срочно?

Добавлено (2009-05-20, 8:52 Am)
---------------------------------------------
vnaumkin,
Еще до завтрашнего утра актуально. Еще раз спасибо.

int main()
{ int i,j;
const int N=5;
int a[N][N];
for (i=0;i<N;i++)
for(j=0;j<N;j++)
{
cin>>a[i][j];
if(i>=j)
a[i][j]=0;
if(i<j)
a[i][j]=3;
}
for(i=0;i<N;i++)
for(j=0;j<N;j++)
if(j==N-1)
cout<<a[i][j]<<endl;
else cout<<a[i][j]<<" ";
getch();
} На Си++

Добавлено (2009-06-15, 9:53 Am)
---------------------------------------------
самое 1-е задание