Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

program z;

Answer 5

ща падож

Answer 6

ok