pascal / 1 лаба / 2

uses crt;
const n=3; m=3;
var a,b:array[1..n,1..m]of integer;
i,j:integer;
begin;
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('результат после вычитания последней строки из всех строк, кроме последней:');
for i:=1 to n do
for j:=1 to m do
if i<>n then
b[i,j]:=a[i,j]-a[3,j] else b[i,j]:=a[i,j];
for i:=1 to n do
begin
for j:=1 to m do
write(b[i,j],' ');
writeln;
end;
end.