ПОМОГИТЕ ПАСКАЛЬ!! НУЖНА ПОМОЩЬ, ВСЁ ОЧЕНЬ ПЛОХО!! Переставить местами первую и последнюю строки в матрице.
ПОМОГИТЕ ПАСКАЛЬ!! НУЖНА ПОМОЩЬ, ВСЁ ОЧЕНЬ ПЛОХО!!
Переставить местами первую и последнюю строки в матрице.
Гость
Ответ(ы) на вопрос:
Гостьconst
m=6;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,r:integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i,j]:=Random(100);
Write(a[i,j]:3)
end;
Writeln
end;
for j:=1 to n do
begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;
Writeln('Результирующий массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Исходный массив
6 93 10 3 80 4 47 71
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
42 26 67 23 28 8 8 45
Результирующий массив
42 26 67 23 28 8 8 45
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
6 93 10 3 80 4 47 71
Не нашли ответ?
Похожие вопросы