1) Даны квадратная матрицы А размером 3 х3 и число t. Требуется найти С=t*А.

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

1) var ma:array[1 ... 3,1 ... 3] of integer;

i, j, t:integer;

begin;

randomize;

readln (t);

writeln ('Matrix:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

ma[i, j]:=random (10);

write (ma[i, j]:4);

ma[i, j]:=ma[i, j]*t;

end;

end;

writeln;

writeln ('Final matrix:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

write (ma[i, j]:4);

end;

end.

2) var ma:array of array of real;

i, j, n, m, maxj, maxi:integer;

max:real;

begin;

readln (n);

readln (m);

setlength (ma, n+1);

for i:=1 to n do

setlength (ma[i], m+1);

max:=-2147483648;

writeln ('Matrix:');

for i:=1 to n do

begin;

writeln;

for j:=1 to m do

begin;

ma[i, j]:=random (100) - 50;

write (ma[i, j]:4);

if (ma[i, j]max) then

begin;

max:=ma[i, j];

maxi:=i;

maxj:=j;

end;

end;

end;

writeln;

writeln ('Max:', max);

writeln ('Строка:', maxi);

write ('Столбец:', maxj);

end.