Сформировать массив из 15 целых чисел случайным образом на отрезке от 2 до 15. Найти произведение последних 6 элементов
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад