Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве - Turbo Pascal

Формулировка задачи:

Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321
var
A:array [1..200,1..200] of integer;
i, j, n, m, k, k1: integer;
begin
writeln('Введите размерность двумерного массива:');
write('n=');
read(n);
write('m=');
read(m);
k:=m;
k1:=k;
m:=2*m-1;
for i:=1 to m do
begin
k:=k1;
  for j:=1 to n do
  begin
    if (j<=k) then
      A[i,j]:=i
    else
    begin
      A[i,j]:=k-1;
      k:=k-1;
    end;
  end;
end;
writeln('Двумерный массив:');
for j:=1 to m do
begin
  for i:=1 to n do
  begin
    write(A[j,i]:3)
  end;
  writeln;
end;
end.

Код к задаче: «Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве - Turbo Pascal»

textual
var a:array [1..10,1..10] of integer;
    m,n,i,j,k:integer;
begin
repeat
writeln('Введите размерность двумерного массива от 2 до 2 по строкам и столбцам:');
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
until(m in [2..10])and(n in [1..10]);
if odd(m) then k:=m div 2+1
else k:=m div 2;
writeln('Двумерный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if i<=k then a[i,j]:=i
    else a[i,j]:=m-i+1;
    write(a[i,j]:3)
   end;
  writeln;
 end;
end.

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы