GAECHKA
Твоя помощница в решении задач

Вводится последовательность чисел из 7 n элементов. Найти два наибольших элемента последовательности

Добрый день, помогите пожалуйста разобраться с задачей. Вводиться последовательность чисел из 7 n элементов. Найти два наибольших элемента последовательности.
0
вопрос задан

Источник


1 ответ
Решение
из 7 n элементов.
Это к экстрасенсам.
А решение такое
var n,a,b,i,mx1,mx2:integer;
begin
repeat
write('Сколько чисел ввести n>1 n=');
readln(n);
until n>1;
writeln('Введите ',n,' целых чисел:');
readln(mx1);//читаем 1 число
readln(a);//читаем 2 число
if a>mx1 then //выбирем 1 и 2 максимальное
 begin
  mx2:=mx1;
  mx1:=a;
 end
else mx2:=a;
for i:=3 to n do
 begin
  readln(a);
  if a>mx1 then
   begin
    mx2:=mx1;
    mx1:=a;
   end
  else if a>mx2 then mx2:=a;
 end;
write('Первые два максимальных: ',mx1,' ',mx2);
end.