Дан массив 5x5 заполнить двухзначными числами и вывести его. А ниже вывести массив поменяв первую и последнюю строчки. Помогите пожалуйста
Дан массив 5x5 заполнить двухзначными числами и вывести его. А ниже вывести массив поменяв первую и последнюю строчки. Помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы