Дан одномерный массив, сформировать из него двухмерный отсортированный змейкой - Pascal ABC

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

Начиная с правого нижнего угла вертикально

Код к задаче: «Дан одномерный массив, сформировать из него двухмерный отсортированный змейкой - Pascal ABC»

textual
uses crt;
 
var
  mas1:array [1..20] of integer;
  mas2:array [1..2,1..10] of integer;
  i,j,k:integer;
  a,b:boolean;
  
BEGIN
  write('mas1: ');
  for i:=1 to 20 do
    begin
      mas1[i]:=random(10);
      write(mas1[i],' ');
    end;
  writeln;
  
  j:=2;
  i:=11;
  k:=0;
  a:=false;
  b:=false;
 
  while k<20 do
    begin
      inc(k);
      a:=not a;
      if a then
        begin
          dec(i);
        end
      else
        begin
          b:= not b;
        end;
      if b then
        begin
          j:=1;
        end
      else
        begin
          j:=2;
        end;
      mas2[j,i]:=mas1[k];
    end;
  writeln('mas2:');
  for i:=1 to 2 do
    begin
      for j:=1 to 10 do
        write(mas2[i,j],' ');
      writeln;
    end;
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.846 из 5


СДЕЛАЙТЕ РЕПОСТ