(LAZARUS) ХОТЯ-БЫ ЧТО-ТО а: array [0..1000] of integer; и, п, k: integer; begin Мето1.Clear; в: -SirTolnt (Editl.Text) for i: -0 to n do begin alij:-random(10); Мето1.Lines[ij:-FloatToStr(afij); end; еnd; procedure TForm1.Вutton2Click(Sender: TObjеct); begin k:=0 for i: -0 to n do if alij>6 then k:3k+1; Edit2. Text:-FloatToStr(k); end; end.