Anonymní profil Polák – Programujte.com

Dobrý den, zravím vís tu všechny... :-) Má-li někdo náladu potřebuji pomoci s algorytmem....s určením druhého čísla (První už mám)z vybraných 10. zde program:


procedure TForm1.BnClick(Sender: TObject);
var
nej1, i:integer;
A: array[1..10] of integer;
begin
A[1]:=StrToInt(Ez1.text);
A[2]:=StrToInt(Ez2.text);
A[3]:=StrToInt(Ez3.text);
A[4]:=StrToInt(Ez4.text);
A[5]:=StrToInt(Ez5.text);
A[6]:=StrToInt(Ez6.text);
A[7]:=StrToInt(Ez7.text);
A[8]:=StrToInt(Ez8.text);
A[9]:=StrToInt(Ez9.text);
A[10]:=StrToInt(Ez10.text);
nej1:=A[1];
For i:= 2 to 10 do
begin
if a[i]>nej1 then nej1:=A[i]
end;
Bn.Caption:=IntToStr(nej1) {Vypíše 1. největší číslo}
end;




Předem díky za váš čas a za dobré rady :-)