Напишите программу которая в последовательности целых чисел
Автор Hophop sadasd задал вопрос в разделе Другие языки и технологии
Помогите с кодом на Pascal... и получил лучший ответ
Ответ от
program atatata;
var i,max1,max2,min1,min2:longint;
begin
read(i);
max1:=i;
max2:=i;
min1:=i;
min2:=i;
while i<>0 do
begin
read(i);
if max1>i then
begin
max2:=max1;
max1:=i;
end else
if max2>i then max2:=i;
if min1<i then
begin
min2:=min1;
min1:=i;
end else
if min2<i then min2:=i;
end;
writeln(max1+max2);
writeln(min1+min2);
end.
Кирилл
Мастер
(1231)
goto лучше не использовать, посмотри как у меня сделано, ты в своем коде что-то намудрил
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите с кодом на Pascal...