помогите срочно :

составьте программу нахождения наибольшего среди тех элементов одновременного массива A(N),что лежат в интервале индексов массива (C,D)

с обьяснением как вопще работает сама программа.

я думаю так

гянем

глянем

если нет , попробуй цикл с пред условием :Var A: Array[1..20] Of Integer; i, n, s, p: Integer;Begin Write (‘n=’); Readln (n); i:=1; While i <= n Do Begin Readln (A[i]); i:= i + 1 End; s:= 0; p:=1; i:=1; While i<=n Do Begin If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) ThenBegin s:=s+A[i]; p:= p*A[i] End; i:= i + 1 End; Writeln (‘s=’, s, ‘p=’, p); Readln End.

ну или вот :Var X: Array[1..20] Of Integer; i, n: Integer;Begin Write (‘n=’); Readln (n); For i:=1 To n Do Readln (X[i]); {ввод массива} For i:=1 To n Do {обработка массива} If (X[i] mod 2 = 0) and (i mod 2<>0) Then Write (i:5); ReadlnEnd.

var a,b:integer;X: array [1..30] of Integer;begin    a := 1; while a <= 30 do begin            read (X[a]); a := a + 1    End;      readlnEnd.