Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Раз надо найти индексы, значит это массив
//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:=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.