Constn=60;var a,l,i,j:integer;mas: array [1..n] of integer;begin randomize;writeln('Исходный массив '); for i:=1 to n do begin mas[i]:=random(64); write(mas[i]:4); end; for i:=1 to n-1 do for j:=1 to n-i do if mas[j] < mas[j+1] then begin a:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=a; end; writeln(); writeln('Массив по убыванию'); for i:=1 to n do write(mas[i]:4); end.
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
B:array[1..M,1..N] of integer;
i,j:integer;
Begin
WriteLn('А: ');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('Б: ');
For i:= 1 to M do
Begin
For j:= 1 to N do
Begin
B[i,j]:=A[j,i];
Write(B[i,j]:3,' ')
End;
WriteLn
End;
End.
While (условие) do
begin
(пишем что выполнить)
end;