Помогите написал прогу, но сайт не принимает решение. В чем ошибка? И можно ли по-другому составить программу?
Нужно было найти второй максимальный элемент
Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности.
Числа, следующие за числом 0, считывать не нужно.
program r1;
var max1,max2,k:longint;
begin
readln (k);
max1:=k;
max2:=k;
while k<>0 do begin
readln (k);
if k>max1 then begin
max2:=max1;
max1:=k;
end;
end;
writeln (max2);
readln;
end.
Нужно было найти второй максимальный элемент
Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности.
Числа, следующие за числом 0, считывать не нужно.
program r1;
var max1,max2,k:longint;
begin
readln (k);
max1:=k;
max2:=k;
while k<>0 do begin
readln (k);
if k>max1 then begin
max2:=max1;
max1:=k;
end;
end;
writeln (max2);
readln;
end.
More Questions From This User See All