баллов!!!
НУЖНО СДЕЛАТЬ РЕФЕРАТ ПО ИНФОРМАТИКЕ ПО ПУНКТАМ
КТО СДЕЛАЕТ МОГУ СВЕРХУ НАКИНУТЬ ДЕНЕГ ЕЩЕ
ОТВЕТ НУЖЕН ИМЕННО В ВОРДЕ!!!!!

126

392

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

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

alionka7

Информатика

4,5(74 оценок)

не грузится фото отправь и потом дело времени

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