1. Const N = 30; Var A:array[1..N] of integer; i,Max,kMax:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(N); Write(' ',A[i]); End; WriteLn; {Нахождение максимума} Max:=A[1]; For i:= 2 to N do if A[i]>Max then Max:=A[i]; WriteLn('Max = ',Max); {Подсчёт максимумов} kMax:=0; For i:= 1 to N do if A[i] = Max then kMax:=kMax+1; WriteLn('kMax = ',kMax); End.
2. Const N = 30; Var A:Array[1..N] of integer; i,SMax,iSMax:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(N); Write(' ',A[i]) End; WriteLn; iSMax:=1; SMax:=A[1]+A[2]+A[3]; For i:= 3 to N-2 do if A[i]+A[i+1]+A[i+2]>SMax then Begin iSMax:=i; SMax:=A[i]+A[i+1]+A[i+2]; End; WriteLn('Номера элементов, сумма которых максимальна: ',iSMax,', ',iSMax+1,', ',iSMax+2); WriteLn('Максимальная сумма = A[',iSMax,'] + A[',iSMax+1,'] + A[',iSMax+2,'] = ',SMax) End.
S
Q
6
Объяснение:
Для записи программы можно использовать латинские буквы и цифры