В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них наибольшее. ПАСКАЛЬ
В одновременном массиве X (15) найти сумму и произведение элементов и выбрать из них наибольшее. ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
ГостьЕсли я всё правильно понял, то вот:
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.
Не нашли ответ?
Похожие вопросы