Спасибо, очень помогли, вот что думаю по второй, но тоже не робит что-то(
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var w,m,l,i,j,k:byte;
A:array [1..60] of integer;
z:boolean;
begin
Randomize;
Form1.Refresh; m:=strtoint(edit1.text);
for i:=1 to 60 do begin A[i]:=random(89)+10; w:=trunc((i-1)/m);
Canvas.TextOut((i-w*m)*35, (w-1)*35, inttostr(a[i]));
end;
Z:=false; if odd(a[60]) then begin a[60]:=1; z:=True end;
K:=0; repeat l:=0; for i:=1 to 60 do if odd(a[i]) then begin for j:=i to 60 do
a[j]:=a[j+1];
k:=k+1; l:=1 end;
Until l=0; if z then k:=k+1;
For i:=1 to (60-k) do
w:=trunc((i-1)/m);
Canvas.TextOut((i-w*m)*35+60, (w-1)*35+63, inttostr(a[j])); end;
lmikle: Код выделяется с помощью тега [ code ] (пробелы убрать).
Не очень знал как выделить этот текст кодом, так что выделил цитатой, прошу прощения за неполное соблюдение правил.