Одномерный массив, ... Опции

[S-Vanek007]

Задан одномерный массив A(N) (N<=60). Посчитать сумму элементов находящихся между максимальным и минимальным элементами. Результат вывести на печать.

Program lll;
var
a:array [1..60] of integer;
n,i,max,min,s:real;
begin
for i:=1 to 60 do
begin
write ('N=',i,':');
readln (a[i]);
end;
max:=1;
min:=1;
for i:=1 to 60 do
begin
if a [max]<a[i] then max:=i;
if a [min]>a[i] then min:=i;
end;
if min>max then
begin
i:=max;
max:=min;
min:=i;
end;
for i:=min to max do
S:=????????????????
writeln ('S=", s);
readln;
end.

Подскажите пожалуйста на месте ???? что надо написать, и скажите где ещё ошибки (если они есть). Заранее спасибо!

М

Просьба использовать теги при публикации кода! Исправлено. Lapp

[Гость]

Проблема не в этом, а в том, что ЭТОТ код никогда не будет компилироваться: i: Real и For i := ... - несовместимо по определению... Переменная i должна быть перечислимого типа...

Это оже верно подмечено

но не согласен с

Читай доки по языку, глобальная переменная инициализируется нулем, хотя закладываться на это не стОит... Сегодня она глобальная, завтра - нет, потом ищи проблему...

не все языки при объявлении переменной инициализируют ее нулем.