Var max,i,min:longint; m:array[1..10] of longint; Begin min:=100000; for i:=1 to 10 do begin m[i]:=random(10); if m[i]<min then min:=m[i]; if m[i]>max then max:=m[i]; end; writeln(min+max); End.
Весеннее оживание природы заставляло мальчика испытывать особое волнение. А рассказы отца и Евсеича о весне пробуждали в Серёже какие-то неизведанные сладкие и томительные чувства. Каждый весенний шаг воспринимался им как победа, каждое известие о новых прилетевших птицах приводили мальчика в неописуемый восторг. Но когда Серёжа заболел, он оказался «замурован в тюрьме»: его не выпускали из комнаты, а Евсеичу запретили рассказывать мальчику весенние новости. Это навело тоску на Серёжу, который всем сердцем стремился наблюдать за оживающей весенней природой.
Весеннее оживание природы заставляло мальчика испытывать особое волнение. А рассказы отца и Евсеича о весне пробуждали в Серёже какие-то неизведанные сладкие и томительные чувства. Каждый весенний шаг воспринимался им как победа, каждое известие о новых прилетевших птицах приводили мальчика в неописуемый восторг. Но когда Серёжа заболел, он оказался «замурован в тюрьме»: его не выпускали из комнаты, а Евсеичу запретили рассказывать мальчику весенние новости. Это навело тоску на Серёжу, который всем сердцем стремился наблюдать за оживающей весенней природой.
m:array[1..10] of longint;
Begin
min:=100000;
for i:=1 to 10 do
begin
m[i]:=random(10);
if m[i]<min then
min:=m[i];
if m[i]>max then
max:=m[i];
end;
writeln(min+max);
End.