6 вариант. Даны две квадратные матрицы А и В размером 3 х3. Требуется найти С = В - А.

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

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

b:array[1 ... 3,1 ... 3] of integer;

c:array[1 ... 3,1 ... 3] of integer;

i, j:integer;

begin;

writeln ('A array:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

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

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

end;

end;

writeln;

writeln ('B array:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

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

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

end;

end;

writeln;

writeln ('C array:');

for i:=1 to 3 do

begin;

writeln;

for j:=1 to 3 do

begin;

c[i, j]:=b[i, j]-a[i, j];

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

end;

end;

end.

2) var a:array of array of real;

i, j, n, m:integer;

max:real;

begin;

randomize;

max:=-2147483648;

readln (n);

readln (m);

setlength (a, n+1);

for i:=1 to n do

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

writeln ('A array:');

for i:=1 to n do

begin;

writeln;

for j:=1 to m do

begin;

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

if max
write (a[i, j]:4);

end;

end;

for i:=1 to n do

for j:=1 to m do

if a[i, j]<0 then a[i, j]:=max;

writeln;

writeln ('Final array:');

for i:=1 to n do

begin;

writeln;

for j:=1 to m do

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

end;

end.