Паскаль.Матрицы.

[kikim]

Че-то не как не дается =( нужна помощь.
1)Дана матрица A(N,N), состоящая из случайных элеметов.Если 1 элемент столбца отрицателен, возвести в квадрат, все элементы этого стоблца.
2)Дана матрица A(N,N).определить наибольшее из значений элементов расположеных в заштрихованной части матрицы.(рисунок прилогается)
Заранее большое спасибо!

[Chudo4258]

1 Решалась раз сто только на этом форуме, а еще существуют и другие. поищите...
2

max:=a[1,1];
for i:=1 to n do 
 for j:=1 to n do
  if not(((n-j+1)<i)and(i>j)) then
    if a[i,j]>max then max:=a[i,j];

((n-j+1)<i - элементы ниже побочной диагонали
i>j - элементы ниже главной диагонали
Следовательно условие ((n-j+1)<i)and(i>j) - дает нам элементы незакрашенной области

[kikim]

За 2 огромное спасибо! а вот 1 весь форум облазил....

[Deamonig]

1.

for i:=1 to n do
if a[i,1]<0 then
for j:=1 to n do
A[i,j]:=sqr(a[i,j]);

[kikim]

Спасибо за ответы!
Еще одна проблема!помогите найти ошибку не хочет перемножать и складывать.Надо вычислить матрицу С,Дана матрица В, и Е - единичная матрица.С=B*B+E(t1=E)(t2=B)(t3=C)

uses crt;
const y=5;
var
i,j,s,n,m:integer;
t1,t2,t3:array [1..100,1..100] of integer;
Begin
clrscr;
For i:=1 to y do
begin
For j:=1 to y do
begin
if i=j then t1[i,j]:=1 else t1[i,j]:=0;
write(t1[i,j]:5);
End;
readln;
end;
begin
for i:=1 to y do
for j:=1 to y do
t2[i,j]:=random(26)-10;
for i:=1 to y do
begin
for j:=1 to y do
write(t2[i,j]:3);
writeln;
end;
readln;
end;

for i:=1 to y do
begin
for j:=1 to y do
begin
S:=0;
for j:=1 to y do
S:=S+t2[j,n]*t2[j,n]+t1[i,j];
t3[i,n]:=S;
end;
end;
writeln ('C=B*B+E=');
for i:=1 to y do
begin
for n:=1 to y do
write (t3[i,n],' ');
writeln ('')
end;
readkey ;
end.

еще такой вариант, тоже не работает,перемудрил с ендами.

uses crt;
const n=5;
Var
E,c,b: array [1..n,1..n] of integer;

s, i,k, j : integer;
Begin
clrscr;
For i:=1 to n do
begin
For j:=1 to n do
begin
if i=j then E[i,j]:=1 else E[i,j]:=0;

write(E[i,j]:5);
end;
readln;
End;
readln;
begin
for i:=1 to n do
for j:=1 to n do
b[i,j]:=random(20)-15;
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:5);
readln;
end;
begin
for i:=1 to n do
for j:=1 to n do
begin
S:=0;
for k:=1 to n do
S:=S+b[i,k]*e[i,k];
c[i,j]:=s;
end;

begin
for i:=1 to n do
begin
for j:=1 to n do

write(c[i,j]);
end;
end;
readln;
end;
end;
end.