Решить задачу в паскаль абс "дан двумерный массив,состоящий из 2 строк и 3 столбцов..необходимо пересортировать массив таким образом,чтобы нижняя
строка(2) заняла место верхней(1),а верхняя(1) заняла место нижней(2).как можно проще пожалуйста
строка(2) заняла место верхней(1),а верхняя(1) заняла место нижней(2).как можно проще пожалуйста
More Questions From This User See All
Answers & Comments
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
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;