Задать вопрос
24 мая, 07:58

В массиве целых чисел вывести номер и значение 2 максимальных элиментов. Найти их суму.

+5
Ответы (1)
  1. 24 мая, 10:55
    0
    Begin

    readln (n, a[1],) ;

    max1:=a[1];

    max2:=a[1];

    for I:=2 to n do begin

    readln (a[i]) ;

    if a[i] > max1 then begin

    max1:=a[i];

    t:=i;

    end;

    if a[i]max2 thenbegin

    max2:=a[i];

    k:=i;

    end;

    writeln (t,' ', max1) ;

    writeln (k,' ', max2) ;

    s:=max1+max2;

    writeln (s)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В массиве целых чисел вывести номер и значение 2 максимальных элиментов. Найти их суму. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы