Дан массив состоящий из 6-ти элементов : а)найти максимальный элемент массива б)найти...

Question

Дан массив состоящий из 6-ти элементов :
а)найти максимальный элемент массива
б)найти сумму четных элементов и произведение не четных элементов.

Comments

массив надо наполнять?

---

или он уже заполнени?

---

так как я понимаю , надо наполнять))

---

тут нужно составить две программы )))

---

сделал в одной программе

---

но массив должен быть заполнен назание

---

спасибо большое!

Answer 1

Var
a: array [1..6] of integer;
 i,p,s, max: integer;
begin
max := a[i];
p:=1;
s:=0; 
 for i:= 1 to 6 do   
 if a[i] > max then
 max := a[i]; //находим максимальный   
 if a[i] mod 2 = 0
then s:= s+ a[i]//находим сумму четных   
else p:= p*a[i];//находим произведение нечетных 
 writeln(max);//вывод максимального 
writeln(s);//вывод суммы четных 
writeln(p);// вывод произведения нечетных
end.