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

Matrix14. Дана квадратная матрица $$A$$ порядка $$M$$. Начиная с элемента $$A_{1,1}$$, вывести ее элементы следующим образом («уголками»): все элементы первого столбца; элементы последней строки, кроме первого (уже выведенного) элемента; оставшиеся элементы второго столбца; оставшиеся элементы предпоследней строки и т. д.; последним выводится элемент $$A_{1,M}$$.

Решение:

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

begin

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

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

  for i2:=1 to M do
   begin
    for j:=1 to M-i2+1 do write (' ',a[j,i2]);
    for i:=i2+1 to M do write (' ',a[M-i2+1,i]);
    writeln('');
   end;

end.

program Matrix14;

var

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

M, i, j, i2:Integer;

begin

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to M do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for i2:=1 to M do

begin

for j:=1 to M-i2+1 do write (' ',a[j,i2]);

for i:=i2+1 to M do write (' ',a[M-i2+1,i]);

writeln('');

end;

end.

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

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

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

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