Составьте программу, которая формирует массив из шестнадцати случайных чисел от -20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трем;
QueenNics
3
03.10.2019 00:00
0
Другие вопросы по теме Информатика
123Abc9900
29.04.2020 18:24
35глис
29.04.2020 18:26
глупыйенот
25.02.2021 22:00
olgastavovaya1
25.02.2021 22:00
Клеоок
25.02.2021 21:59
Кряквочка
29.04.2021 07:58
suslik030715
29.04.2021 07:57
Ru5829
29.04.2021 07:54
нургалым1
29.04.2021 07:48
Популярные вопросы
- Укажите, какие из стран относятся к странам с наибольшей обеспеченностью лесными...
2 - Содружество стран, возглавляемое Великобританией, входят 53 страны. Укажите те...
3 - На контурную карту нанесены районы местонахождения наиболее крупных бассейнов минерального...
3 - Среди перечисленных ниже стран Укажите те, которые обладают особенно большими разведанными...
2 - Выберите одну из стран, играющих важную роль в мировой политике. Дайте письменную...
2 - Из приведенного перечня стран выпишите те, которые обладают наибольшим гидроэнергетическим...
2 - В начале XXI в. На политической карте мира насчитывается следующее количество государств...
2 - Закончите фразу: «Самыми большими разведанными запасами угля в мире обладают…»...
1 - Дополните следующие предложения: 1. Глобальные проблемы в своем взаимодействии...
1 - В перечисленном ниже списке стран отметьте страны, обладающие наибольшими разведанными...
3
var k,i:integer;
a:array[1..16]of integer;
begin
randomize;k:=0;
for i:=1 to 16 do
begin
a[i]:=random(-20,20);
write(a[i],' ');
if a[i] mod 3 = 0 then
k:=k+1;
end;
if k>0 then
writeln('YES');
end.