(Pascal ABC Net)Найти сумму максимального и минимального из 12 введенных чисел. Вывести сами значения и их индексы.
(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]max then begin
max:=a[i]; imax:=i;
end;
writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.
Не нашли ответ?
Похожие вопросы