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

Question

Информатика

Вильмина

2 мая, 09:54

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

+3

Ответы (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.