В одновременном массиве 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
