Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
polatovskiy2002
29.11.2020 05:03 •
Информатика
Составить программу , которая формирует массив из 10 целых чисел и подсчитывает количество элементов массива, которые кратны 5.
Показать ответ
Ответ:
Пуффыстыйкотёнок04
15.07.2020 01:47
Var
i,k : longint;
begin
k:=0;
for i:=1 to 10 do
if (i mod 5)=0 then k:=k+1;
writeln(k);
end.
0,0
(0 оценок)
Ответ:
илья1899
15.07.2020 01:47
Program enot;
var a:array [1..10] of integer;
i,h:integer;
begin
h:=0;
for i:= 1 to 10 do
a[i]:=random(100);
for i:=1 to 10 do
if a[i] mod 5=0 then
h:=h+1;
writeln(h);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MuxaBirko
09.03.2021 04:02
Определите площадь квадрата стороны которого определяется как квадратный корень расстояния между двумя точками x1 y1 и x2 y2...
nadyalewoxtphe
21.01.2022 10:32
Написать программу в паскале. за ранее . на одномерный массив. 3. даны два массива a и b, состоящих из одинакового числа элементов. найти среднее арифметическое элементов каждогомассива...
Лера9814
21.01.2022 10:32
Решить.массивы паскаль. имеется массив а из n произвольных чисел а(n), среди которых есть положительные, отрицательные и равные нулю. вычислить количество чисел, квадрат которых...
Hehehe225
28.09.2021 16:37
Каким наименьшим числом в десятичной системе счисления можно заменить переменную x, чтобы результат выражения был целым чётным числом? В ответ запишите только одно число в десятичной...
gurgurov68
05.06.2022 09:01
ИНФОРМАТИКА (простое задание) Множество A содержит натуральные числа из отрезка [15..30]. Множество B содержит натуральные числа из отрезка [23..40]. Сколько чисел из множества...
katja060606
11.06.2020 05:05
По данным электронной таблице определите чему будет равно значение в ячейке D5?...
iarik2008
31.01.2023 19:40
Задание 1. Перестройте текст так, чтобы получились предложения с прямой речью (1-2) и вводными конструкциями (3-4) 1. По словам историков, на юго-востоке Двуречья нашли несколько...
inga20062
31.01.2023 19:40
Мәтіндегі сай такырыпты таңдаңыз...
DanilOtlicnic
24.01.2021 08:18
8 ** Complete sentences 1 & 2 withactivities from Ex. 7 to make them truefor you. Then use the activities andadjectives from these two pages towrite four more similar sentences.because...
user41
09.02.2022 03:17
505. Сравните: 1) 725,3 – 978,6 и – 253,3; 2) -46,8 – 77,5 и -124,2;3) -179,25 - (-200) и 20,08; 4) -(-63,78 ) + 7,53 и 770,31....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k : longint;
begin
k:=0;
for i:=1 to 10 do
if (i mod 5)=0 then k:=k+1;
writeln(k);
end.
var a:array [1..10] of integer;
i,h:integer;
begin
h:=0;
for i:= 1 to 10 do
a[i]:=random(100);
for i:=1 to 10 do
if a[i] mod 5=0 then
h:=h+1;
writeln(h);
end.