Размещено 4 года назад по предмету
Информатика
от andr9166696553
Дан одномерный массив, сформировать из него двухмерный отсортированный змейкой: Начиная с правого нижнего угла вертикально. Pascal ABC Вот код, только здесь выводится с левого угла, а мне нужно с правого: uses crt; var a:array [1..25] of integer; ar:array [1..25,1..25] of integer; i,n,s,j,x:integer;b:real; L:boolean; begin write('n='); readln(n); writeln('Заполните массив:'); For i:=1 to n do readln(a[i]); For i:=1 to n do For j:=i+1 to n do If a[i]>a[j] then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; s:=1; writeln('Отсортированный массив: '); For i:=1 to n do write(a[i], ' '); writeln; b:=sqrt(n); n:=round(b); writeln('Двумерный массив: '); for j:=1 to n do begin for i:=1 to n do begin ar[i,j]:=s; if (j mod 2 = 0) and (i<>n) then dec(s) else inc(s); end; s:=s+n-1; end; for i:=n downto 1 do begin for j:=1 to n do write(ar[i,j]); writeln; end; end. Помогите пожалуйста