Question

Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности. Числа, следующие за числом 0, считывать не нужно. Входные данные Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит). Выходные данные Выведите ответ на задачу. Примеры входные данные 1 7 9 0 выходные данные 7 Помогите пж программирование очень срочно pascal abc.Желательно написать целый код а не подсказывать

Answer 1

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.

Answer 2

Для решения данной задачи вам потребуется написать программу на языке Pascal. Вот пример кода, который может помочь вам решить задачу:

program SecondLargestElement;
var
  num, largest, secondLargest: integer;
begin
  largest := -2147483648;  // Наибольшее число
  secondLargest := -2147483648;  // Второе наибольшее число

repeat
    read(num);  // Считываем число из входных данных

if num > largest then
    begin
      secondLargest := largest;
      largest := num;
    end
    else if (num > secondLargest) and (num < largest) then
      secondLargest := num;
  until num = 0;  // Прекращаем считывание, если встретили число 0

writeln('Второе по величине число: ', secondLargest);
end.

Эта программа считывает последовательность чисел, пока не встретит число 0. В процессе считывания она находит наибольшее и второе наибольшее число в последовательности. В конце программа выводит второе по величине число.

Надеюсь, это поможет вам решить задачу. Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать!