Марк
4 год назад
Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности.Числа, следующие за числом 0, считывать не нужно.Входные данныеВводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).Выходные данныеВыведите ответ на задачу.Примерывходные данные1790выходные данные7Пожалуйста посчитайте пж программирование очень срочно pascal abc.Желательно написать целый код а не подсказывать
ОТВЕТЫ
Дияна
Oct 24, 2020
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
206
Смежные вопросы:
