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

Question

Информатика

Раиса

24 мая, 07:58

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

+5

Ответы (1)

Знаете ответ на вопрос?

Деена · Answer 1

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.