Одномерный массив. Найти max и min сумму из 20 подряд стоящих элементов

[KIRILOW]

Дан массив А{500элементов}. Найти max и min сумму из 20 подряд стоящих элементов

max{(a(1)+..+a(20)),(a(2)+..+a(21)) ,(A(3)+..+A(22)),...}

[Sciv]

Неоднократно невежливый Вы наш, что на этот раз не получается?

[Aranea tela telam]

Сообщение от Sciv

Неоднократно невежливый Вы наш, что на этот раз не получается?

Sciv Толерантность превыше всего

Задача

Program pr1;
var a:array [1..500]of integer;
i,i1,i2:integer;
begin
i2:=0;
Randomize;
for i:= 1 to 500 do 
a[i]:=random(100);
for i:=1 to 480 do 
begin
for i1:=i to i+20 do
i2:=i2+a[i];
writeln(i2);
i2:=0;
end;
end.

[Serge_Bliznykov]

Сообщение от Aranea tela telam

Толерантность превыше всего

во-первых, Ваш код находит сумму 21 элемента (в задании 20)

а во-вторых, Вы бы тогда сказали автору топика, что Ваш код находит сумму и ничего больше, нужно добавить нахождение минимального и максимального значения для данной функции..