Question

(Pascal ABC Net)Найти сумму максимального и минимального из 12 введенных чисел. Вывести сами значения и их индексы.

Answer 1

Раз надо найти индексы, значит это массив
//Pascal
const n = 12;
var a:array[1..n] of real;
min,max:real;
imin,imax,i:integer;
begin
max:=-999999;
min:=999999;
  for i:=1 to n do begin
     readln(a[i]);
     if a[i]<min then begin
       min:=a[i]; imin:=i;
     if a[i]>max then begin
       max:=a[i]; imax:=i;
  end;

writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.