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

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

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

Mazay98: без b

Mazay98: мб это неправильно

Flamefraer: of

Mazay98: я думаю так

Flamefraer: гянем

Flamefraer: глянем

Mazay98: если нет , попробуй цикл с пред условием :
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) Then

Begin

s:=s+A[i]; p:= p*A[i]

End; i:= i + 1

End;

Writeln (‘s=’, s, ‘p=’, p);

Readln

End.

Mazay98: ну или вот :
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.