Предмет: Информатика,
автор: mikaml
Последовательность состоит из натуральных чисел, не превосходящих 10^9. Определите значение наибольшего элемента последовательности. Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности. ПОЖАЛУЙСТА, ПОМОГИТЕ
Ответы
Автор ответа:
0
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var amax,bmax,k:integer;
begin
readln(k);
amax:=k; bmax:=k;
while k<>0 do begin
if k>amax then begin
bmax:=amax;
amax:=k;
end;
readln(k);
end;
println('Наибольший: ',amax,'Второй наибольший: ',bMax);
end.
var amax,bmax,k:integer;
begin
readln(k);
amax:=k; bmax:=k;
while k<>0 do begin
if k>amax then begin
bmax:=amax;
amax:=k;
end;
readln(k);
end;
println('Наибольший: ',amax,'Второй наибольший: ',bMax);
end.
Интересные вопросы
Предмет: Физика,
автор: esmuxambetermuxambet
Предмет: Физика,
автор: friden1
Предмет: Русский язык,
автор: usmonsh
Предмет: Математика,
автор: arunilda03
Предмет: Алгебра,
автор: lis1gon3