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

234

428

Посмотреть ответы 2

Ответы на вопрос:

NastysikRicci

Информатика

4,4(95 оценок)

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-количество элементов в массиве