Question

Сформировать массив из 15 целых чисел случайным образом на отрезке от 2 до 15. Найти произведение последних 6 элементов

Answer 1

Var

a:array[1..15] of integer;

i,k:integer;

begin

k:=0;

for i:=1 to 15 do

begin

a[i]:=random(10)-3;

writeln(a[,i,]=,a[i]);

if a[i] mod 2 <>0 then  k:=k+1

end;

writeln;

writeln(Kol-vo nechetnih chisel = ,k);

end.