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

1

Ответы и объяснения

2013-05-22T12:01:28+04:00
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.