В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них...

Question

В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них наибольшее. ПАСКАЛЬ

Comments

Не в одновременном, а в одномерном.

Answer 1

Если я всё правильно понял, то вот:
var x: array [0..15] of integer;
      sum,pr,i,max:longint;
begin
  randomize;
  sum:=0;
  pr:=1;
  For i:=1 to 15 do x[i]:=random(5)+1;
  For i:=1 to 15 do
  begin
    sum:=sum+x[i];
    pr:=pr*x[i];
  end;
  if pr>sum then max:=pr else max:=sum;
  writeln(max);
end.