найти сумму максимального и минимального элементов массива

Ответ от Dave Gilmour[гуру]
uses crt; cоnst n=5; var a:array[1..n] of real; var min, max, sum:real; var i:integer; begin clrscr; writeln(\'введите элемент массива\'); for i:=1 to n do begin readln(a [ i ] ); end; max:=a[1]; min:=a[1]; - забыл указать, вот он у тебя и нулевой всегда for i:=1 to n do begin if a [ i ] > max then max:=a [ i ]; if a [ i ] < min then min:=a [ i ]; end; writeln(\'max=\',max); writeln(\'min=\',min); sum:=max+min; writeln(\'max+min=\',sum); end. Как-то так..