Виконання

program Project1;

uses

SysUtils;

var M : array of array of integer;

i,j: integer;

max: integer;

n: integer;

dob: int64=1;

begin

randomize;

writeln('Enter size of matrix');

write('n=');

readln(n);

SetLength(M, n, n);

for i:=0 to n-1 do

begin

for j:=0 to n-1 do

begin

M[i,j]:=random(20)+1;

write(M[i,j]:5);

end;

writeln

end;

readln;

max:=M[0,0];

for i:=0 to n-1 do

for j:=0 to n-1 do

if M[i,j]>max then

max:=M[i,j];

writeln('max ',max);

readln;

for i:=0 to n-1 do

for j:=0 to 1 do

begin

dob:=dob*M[i,j];

end;

writeln('dobutok ',dob);

readln;

end.

Рис.4.1 Програма в процесі виконання

2. Задані матриці та . Обчислити матрицю .

(На формі розмістити три компоненти StringGrid для матриць , і . Після запуску програми з клавіатури ввести матриці і , заповнивши відповідні компоненти StringGrid, а результуючу матрицю вивести в третій StringGrid).