Решаем задачи Абрамян на Паскале. Matrix12

Matrix12. Дана матрица размера $$M \times N$$. Вывести ее элементы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх, третий столбец сверху вниз, четвертый столбец снизу вверх и т. д.

Решение:

program Matrix12;
var
  a:array [1..10,1..10] of integer;
  M, N, i, j:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for i:=1 to M do
  begin
   for j:=1 to N do
    if j mod 2 <> 0 then Write(' : ',a[i,j])
    else Write(' : ',a[M-i+1,j]);
   writeln(' : ');
  end;
end.

program Matrix12;

var

a:array [1..10,1..10] of integer;

M, N, i, j:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for i:=1 to M do

begin

for j:=1 to N do

if j mod 2 <> 0 then Write(' : ',a[i,j])

else Write(' : ',a[M-i+1,j]);

writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix12

Комментарии:

Добавить комментарий Отменить ответ