Держи ответ тебе ) надеюсь все понятно ) если что спрашивай )
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
<span>Массив A:
12 44 36 9 1 13 10 11 37 30
12 30 44 37 36 11 9 10 1 13</span>
Если я всё правильно понял, то вот:
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);
<span>end.</span>
<em>Функциональные</em> <em>клавиши</em><em> </em>,
<em>Дополнительная</em> <em>клавиатура</em><em> </em>
<em>Специальные клавиши</em><em> </em>
<em>Символьные</em> <em>клавиши</em><em> </em>
<em>И</em><em> </em><em>клавиши</em><em> </em><em>управления</em><em> </em><em>курсором</em><em> </em>