Const n=10;
var
a: array[1..n] of integer;
p,k: integer;
i: byte;
begin
randomize;
p:=1; k:=0;
for i:=1 to n do begin
a[i]:=random(21);
if (a[i]>0) and (a[i] mod 6 =0) then begin
p:=p*a[i];
k:=k+1;
end;
end;
println (a);
if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)
else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)
else writeln ('Нет элементов, кратных 6')
end.
-----------------------------------
Примеры:
15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6
12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72
14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, - 6
Найдите закономерности и продолжите последовательности. а) а, б, в, г, ...б)а, в, д, ё, ...в)Анна Борис, Валентина, Геннадий, ..
ИРИНА ШТОК
А) а, б, в, г, д, е, ... — буквы русского алфавита
б) а, в, д, ё, з, й, ... — буквы русского алфавита через одну
в) Анна, Борис, Валентина, Геннадий, Дмитрий, Елизавета, ... — имена, начинающиеся на буквы русского алфавита
г) о, д, т, ч, п, ш, с, ... — первые буквы чисел (Один, Два, Три...)
д) Москва, Абакан, Норильск, Киев, Воркута, Архангельск, ... — "игра в города" — каждое следующее название начинается на последнюю букву предыдущего
Объяснение:
from random import randint, random
p=[]
a=randint(10,50)
p.append(a)
print(p)
#для числа запись random.randint не подходит...
#тебе тут надо спомощью метода .append добавить в конец списка число
Бит в секунду или просто бит/с.