Задан массив из семи элементов. Найти сумму максимального и минимального элементов и их индексы

Question

Задан массив из семи элементов. Найти сумму максимального и минимального элементов и их индексы

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

program zadacha;vara: array[1..7] of integer;i,min,max,nmin,nmax,sum: integer;beginwriteln('enter numbers');for i:=1 to 7 do read(a[i]);min:=a[1];nmin:=1;for i:=2 to 7 doif a[i]max then beginmax:=a[i];nmax:=i;end;sum:=min+max;writeln('min=',min, ' N=',nmin);writeln('max=',max, ' N=',nmax);writeln('sum=',sum);end.