tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заполнить массив случайными числами
Заполнить массив случайными числами из промежутка (1-100) и определить в массиве a[1..20]кол-во однозначных чисел кратным 3.
окей129
3 12.09.2019 05:40
0
Ответы
Хэлоу1
26.08.2020 19:26
Var i,k:integer;
a:array[1..20] of integer;
begin
k:=0;
for i:=1 to 20 do begin
a[i]:=random(101);
if (a[i] mod 3=0) and (a[i]<10) then k:=k+1;
end;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Awesome7
22.03.2021 16:12
В одном из районов города N в 2018 году зафиксированы следующие абсолютные данные естественного движения населения: - Среднегодовая численность населения - 95 641 чел. - Число женщин...
Polina8472
17.04.2020 07:50
С какого тега можно вставить рисунок?...
olgatolga
17.04.2020 07:50
С ЗАДАЧЕЙ ЗАДАЧА В ПАСКАЛЬДано натуральное число n. Вычислить сумму первых 10 элементов в ряду: (n-7)/4+(n-14)/5+(n-21)/6+⋯+(n-7n)/n...
Sharю
12.05.2020 20:07
Хелп()()())) Встановіть відповідність між початковими значеннями змінної х (1-4) і значеннями змінної у після виконання оператора. If x 0 Тhen y := x Else If x = 5 Then y := sqr(x)...
DashaZhelezniak
12.05.2020 20:07
написать программу по этой блок-схеме...
isaevavika
12.05.2020 20:07
Как сделать горку и качели в скетчап ход работы...
JanetJackson5
22.09.2019 05:10
Мистеру фоксу подарили игрушечного лисенка. мистер фокс завел его и стал наблюдать, что тот умеет делать. оказалось, что: если сейчас лисенок машет хвостом, то через минуту он зевает;...
Дурачок225
22.09.2019 05:10
Записать программу на языке паскаль. a: =7 b: =3 c: =a+b если c d, то s: =c-d иначе s: =d-c...
1mizik1
22.09.2019 05:10
C++ на бесконечной вправо и вверх шахматной доске находится ладья. два игрока передвигают ее по очереди. за один ход разрешено сдвинуть ладью вниз или влево на произвольное (ненулевое)...
Stanmashyna201
29.05.2019 19:00
Підкреслити слова, в яких букви я, ю, є, ї позначають два звуки. 1. ягідка, яровина, ювілей, п*єса, подвір*я, раїса, яків, юлія, юхим, краї, сміятися, грає. 2. читають, знають, збирають,...
Популярные вопросы
Из пунктов а и в,расстояние между которыми 920 км,одновременно навстречу друг другу...
1
За 3 дня собрано 532кг семян деревьев. в первый день собрали одна вторая этого...
2
Почему поверхность земли населена людьми неравномерно? какое влияние на размещение...
2
Сторона правельного трикутника доривнює 6 см .знайти радіус вписаного і описаного...
2
Вкаждом ли фольклорном и произведении есть герой?...
2
Фонетический разбор 2 класс яблонька...
3
От данных ниже глаголов образуйте и запишите возможные формы причастий.укажите...
1
Определите лексические значения слова свежий....
2
Чтобы заполнить три десятых бензобака автомобиля требуются 21 с. какая часть бензобака...
3
1. просклоняйте числительные. 1) 1875 год; 2) 2002 уровень; 3) 346 долларов; 4)...
1
a:array[1..20] of integer;
begin
k:=0;
for i:=1 to 20 do begin
a[i]:=random(101);
if (a[i] mod 3=0) and (a[i]<10) then k:=k+1;
end;
writeln(k);
end.