Паскаль. Одномерные массивы.

Question

Паскаль. Одномерные массивы.

JK.97 Знаток (291), закрыт 7 лет назад

заполнит массив 12 элементами случайными числами на интервале от 1 до 20 вывести элементы массива в строку через пробел найти сумму первых 6 элементов массива и произведения 6 последних элементов.

Answer 1

const n=12;
var a: array[1..n] of integer;
i,s,p:integer;
begin
s:=0;
p:=1;
for i:=1 to n do
begin
a[i]:=1+random(20);
write(a[i],' ');
if i<=6 then s:=s+a[i] else p:=p*a[i];
end;
writeln;
writeln(s,' ',p)
end.