Помогите срочно : составьте программу нахождения наибольшего среди тех элементов...

Question

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

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

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

Comments

язык ?

---

русский

---

какой язык программирования ?

---

pascalABS

---

ок

Answer 1

Var a,b:integer;
X: array [1..30] of Integer;
begin    
a := 1; 
while a <= 30 do</span> 
begin           
read (X[a]);
a := a + 1    
End;      
readln
End.

Comments

без b

---

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

---

of

---

я думаю так

---

гянем

---

глянем

---

если нет , попробуй цикл с пред условием :
Var A: Array[1..20] Of Integer;

i, n, s, p: Integer;

Begin

Write (‘n=’); Readln (n); i:=1;

While i <= n Do<br>
Begin

Readln (A[i]); i:= i + 1

End;

s:= 0; p:=1; i:=1;

While i<=n Do <br>
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.

---

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