n = 5; m = 5; var a: array[1..n, 1..m] of integer; i, j: integer; begin for i := 1 to n do for j := 1 to m do begin a[i, j] := random(100); write(a[i, j], ' '); if(j mod m = 0) then writeln; end; writeln('Разность первого и последнего эл. массива: ', a[1, 1] - a[n, m]); end.
const
n = 5;
m = 5;
var
a: array[1..n, 1..m] of integer;
i, j: integer;
begin
for i := 1 to n do
for j := 1 to m do begin
a[i, j] := random(100);
write(a[i, j], ' ');
if(j mod m = 0) then writeln;
end;
writeln('Разность первого и последнего эл. массива: ', a[1, 1] - a[n, m]);
end.