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

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

либо он теснее заполнени?

так как я разумею , надобно заполнять))

здесь необходимо составить две программки )))

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

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

спасибо огромное!

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] gt; 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.