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

Question

Информатика

Евсегней

9 января, 14:14

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

+2

Ответы (1)

Знаете ответ?

Абдюш · 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.