Дан массив 5x5 заполнить двухзначными числами и вывести его. А ниже вывести массив...

Question

Дан массив 5x5 заполнить двухзначными числами и вывести его. А ниже вывести массив поменяв первую и последнюю строчки. Помогите пожалуйста

Answer 1

Const n=5;
var 
a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(50);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for j:=1 to n do
  begin c:=a[1,j]; a[1,j]:=a[n,j]; a[n,j]:=c; end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
   47 36 39 31 0
    8 43 31 16 17
   24 12 18 18 39
   17 19 0 28 8
   16 10 18 6 28
Полученный массив:
   16 10 18 6 28
    8 43 31 16 17
   24 12 18 18 39
   17 19 0 28 8
   47 36 39 31 0

Comments

спасибо тебе