{$APPTYPE CONSOLE} uses SysUtils; var q:array[1..100,1..100] of Integer; q1:array[1..101] of Byte; q2:array[1..10000] of Integer; q3:array[1..100,1..100] of Integer; i,j,l,m,n:byte; q1v,q2v:integer; begin { TODO -oUser -cConsole Main : Insert code here } Randomize; q1v:=0; Writeln('Vvedite M'); Readln(m); Writeln('Vvedite N'); readln(n); for i:= 1 to m do for j:= 1 to n do q[i,j]:=Random(11)-5; for i:= 1 to m do begin for j:= 1 to n do begin write(q[i,j],' '); if q[i,j]>0 then begin Inc(q1[i]); Inc(q1v); q2[q1v]:=q[i,j]; end; end; Writeln; end; q2v:=0; j:=0; for i:=1 to m do if q1[i]>j then begin q1[101]:=q1[i]; j:=q1[101]; end; m:=q1[101]; for i:= 1 to m do for j:= 1 to n do begin Inc(q2v); if q2v<=q1v then q3[i,j]:=q2[q2v] else q3[i,j]:=0; end; Writeln; Writeln; for i:= 1 to m do begin for j:= 1 to n do write(q3[i,j],' '); Writeln; end; read(m); end.program Project3; {$APPTYPE CONSOLE} uses SysUtils; var i,j:byte; a:string; b:string[1]; c:string[1]; q:char; begin { TODO -oUser -cConsole Main : Insert code here } read(a); for i:= 1 to Length(a) do begin {Nachinayem sortirovku!} b:=a[i]; c:=b; j:=i-1; while (Ord(a[j])>Ord(b[1])) do begin a[j+1]:=a[j]; Dec(j); end; a[j+1]:=b[1]; end; Writeln; write(a); read(q); Sleep(5000); end.program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..100]of Byte; b:Integer; i,dlm,rd:byte; q:char; procedure vvod; begin Writeln('Type array length'); readln(dlm); Writeln('Type randomize parameter'); Readln(rd); end; procedure cycles; begin for i:= 1 to dlm do a[i]:=Random(rd+1); for i:= 1 to dlm do write(a[i],' '); for i:= 1 to dlm do if a[i] mod 3=0 then b:=b+a[i]; end; begin { TODO -oUser -cConsole Main : Insert code here } Randomize; b:=0; vvod; cycles; Writeln; Writeln(; read(q); end.program Project1; Очень сложное задание *05