Помогите составить программы с матрицами

[artspotter]

Помогите составить программы с матрицами

1) Дана квадратная матрица целых чисел размером nхn. Вычислить скалярное произведение строки с максимальным элементом и столбца с минимальным элементом матрицы.

2) Дана матрица целых чисел размером nхm. Получить одномерный массив, элементы которого – минимальные элементы соответствующих столбцов исходной матрицы.

Помогите пожалуйста! От этого зависит отчислят меня или нет((

 

[Евгений]

№2

const n=5;
var
A: array[1..n,1..n] of integer;
B: array[1..n] of integer;
i,j: byte;
min: integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:= Random(100)-50;
for i:=1 to n do begin
for j:=1 to n do
Write(A[i,j]:5);
Writeln;
end;
Writeln;
j:=1;
repeat
min:= A[1,j];
for i:=2 to n do
if A[i,j]< min then
min:= A[i,j];
B[j]:= min;
Inc(j);
until j>n;
for j:=1 to n do
Write(B[j]:5);
Readln;
end.

 

[Евгений]

№1

const n=5;
var A: array[1..n,1..n] of integer;
max,min,SP: integer;
i,j,maxj,mini: byte;
begin
SP:=0;
Randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:= Random(10);
max:= A[1,1]; maxj:=1;
min:= A[1,1]; mini:=1;
for i:=1 to N do begin
for j:=1 to N do begin
if A[i,j]>max then begin max:= A[i,j]; maxj:=j
end;
if A[i,j]<min then begin min:= A[i,j]; mini:=i
end;
end;
end;
for i:=1 to n do
SP:= SP+A[i,maxj]*A[mini,i];
Writeln(' Скалярное произведение равно: ',SP);
Readln;
end.