Решить задачу в паскаль абс "дан двумерный массив,состоящий из 2 строк и 3...

Question

Решить задачу в паскаль абс "дан двумерный массив,состоящий из 2 строк и 3 столбцов..необходимо пересортировать массив таким образом,чтобы нижняя

строка(2) заняла место верхней(1),а верхняя(1) заняла место нижней(2).как можно проще пожалуйста

Comments

как задается массив?

Answer 1

Var
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln('До:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln('После:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;end.

ПРИМЕР РАБОТЫ:
До:
5 5 2 
8 6 2 
После:
8 6 2 
5 5 2 

Comments

а что нужно сделать ,точнее изменить ,чтобы самим вводить числа(элементы массива)?

---

for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end; Нужно заменить на : for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
read(a[i,j])
end;
end;