задача в том, что надо в последовательности найти два значения. Они могут быть разными в зависимости от входных данных. Например,
Числа 12 15 5 7 23 7. Какие два наибольших значения- 23 и 15.
Срочно очень очень даю 90 балов

Можете ищменить регение не используя массив?

Без масмива

Сейчас пример напишу

Нет чтоб вместо n было 10

Введите количество чисел: 10Введите числа: 1 2 3 4 5 6 5 4 3 2Два наибольших значения - 5 и 6

В зависимости от размера, вводите число n

Попробуйте запустить программу и поймете как она работает

var a:array[1..10] of integer;i,k,j:integer;beginwrite ('Числа: ');for i:=1 to 10 dobegina[i]:=random(51);write (a[i],' ');end;for i := 1 to i-1 dofor j:=1 to 10-i doif a[j]>a[j+1] then begink:=a[j];a[j]:=a[j+1];a[j+1]:=k;end;WRITELN;write ('Два наибольших значения: ',a[10],' и ',a[9]);end.

Программа без использования массива:var  i, n, a, max, max2: integer;begin  write('Введите количество чисел: ');  read(n);  write('Введите числа: ');  for i := 1 to n do  begin    read(a);    if a > max then    begin      max2 := max;      max := a;    end;  end;  writeln('Два наибольших значения - ', max2, ' и ', max);end.Пример работы программы:Введите количество чисел: 6Введите числа: 12 15 5 7 23 7Два наибольших значения - 15 и 23