Var n, t: integer;
Dat: array[1..10] of integer;
Begin
Dat[1]:=16;
Dat[2]:=25;
Dat[3]:=21;
Dat[4]:=50;
Dat[5]:=11;
Dat[6]:=26;
Dat[7]:=29;
Dat[8]:=12;
Dat[9]:=13;
Dat[10]:=37;
t:=0;
for n:=1 to 10 do
if Dat[n]>t then
begin
t:=Dat[n]
end;
writeln (t);
End.

6епррг    1   29.02.2020 12:34    1