Help! Задать случайным образом массив. Найти минимальную сумму трёх подряд идущих элементов массива. Вывести номер первого элемента из тройки элементов с максимальной суммой.(Паскаль)
Кто может, напишите решение задачи, желательно с комментариями.

Пусть будет, например 40

a:array[1..40] of integer;a[i]:=random(40);

program z;

ща падож

ok

program z;var a:array [1..40] of integer;     i,k,max,min,n,x:integer;beginread(n,x);for i:=1 to n doa[i]:=random(x);min:=a[1]+a[2]+a[3];max:=0;for i:=1 to n-2 dobeginif a[i]+a[i+1]+a[i+2]<min thenmin:=a[i]+a[i+1]+a[i+2];if a[i]+a[i+1]+a[i+2]>max thenbeginmax:=a[i]+a[i+1]+a[i+2];k:=i;end;end;write(min,' ');write(k);end.x-максимальное число n-количество элементов в массиве