tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан одномерный массив x1 x2
Дан одномерный массив x1 x2 xn найдите все элементы кратные 5 напишите решение в паскале
ekkaterrinna2003
3 14.09.2019 03:40
1
Ответы
Помощник223
07.10.2020 13:19
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'), ReadInteger('Промежуток от:'), ReadInteger('До:')); a.Println;
a.Where(t->t mod 5=0).Println;
end.
Пример:
Введите размер массива: 10
Промежуток от: 1
До: 50
35 15 37 21 8 15 33 20 24 36
35 15 15 20
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gravasamp
28.09.2019 19:40
Нужно перевести из одной системы счисления в другую. в 4 и 5, нужно выполнить действие! 1) 159(10) =? (16) 2) 37(8) = ? (10) 3) 145(10) = ? (8) 4) 1011 + 101(2) =? 5) 1011(2) х 111(2)...
АннаЛітвін
28.09.2019 19:40
Написать программу c# решения квадратного уравнения ax^2+bx+c=0 программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного...
BaBaika322
23.04.2019 08:03
40 за решение! написатт прогу на с++ в текстовом файле задана последовательность 2n-1 слов, разделенных пробелами. по заданной последовательности построить идеально дерево поиска....
tsvirko7891
23.04.2019 08:02
Дано целое двузначное число .если обе цифры числа одинаковые, вывести сообщение да , иначе - нет в паскале...
Saeg
23.04.2019 08:01
Пож ! напишите прогу на с++ 30 в исходном файле расположена последовательность символов, состоящая из букв латинского алфавита [a..z], [a..z] и цифр [0..9]. вывести в новый файл...
arpinan
03.10.2019 07:20
Дать определение процессу вымещения человеческого интеллекта искусственным...
Heeellllpppp
13.03.2021 17:15
Доклад на тему :Почему язык программирования Паскаль считается универсальным?...
ладдщв
13.03.2021 17:10
Массив целых чисел А обозначает цены посещения станций на линейной дороге: {10, 5, 20, 10, 30, 40, 30, 30, 30, 50, 100, 2, 10, 3, 20} Дима стартует с первой станции и хочет добраться...
sarranuryeva
13.03.2021 17:10
172.135.12.201 Запишите шестнадцатеричным числом...
Лиса0399
01.04.2021 10:17
Составьте схемы предложений 1) Нехлюдов был так занят разными удовольствиями, что хотя несколько раз на день заезжал к нам, но ни разу не поговорил со мной 2) В озере, принадлежавшем...
Популярные вопросы
На какой вкладки можно изменить шрифт 1)формат 2)правка 3)файл...
1
Задания 3. Прочитайте отрывок из повести Н.В. Гоголя «Ночь перед Рождеством». ...
2
У чому полягає явище алотропії для молекулярних і немолекулярних речовин?...
1
6 задание. Укажите инструменты графического редактора...
3
Нужно решить задачу через круги эллера...
3
(1+x)^2y +(1+x)y +y=4cosx ln(1+x)...
1
Рассматривается равновесие однородной прямоугольной плиты с размерами a и b и...
1
Тараз қаласы бұрын Талас, оулиеата, Жамбыл деп аталған. 1) Тараз қаласы неліктен...
1
разобраться в задаче можете написать на тетраде...
2
Определите самые высокие и самые низкие расход воды за год реки Урал...
3
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'), ReadInteger('Промежуток от:'), ReadInteger('До:')); a.Println;
a.Where(t->t mod 5=0).Println;
end.
Пример:
Введите размер массива: 10
Промежуток от: 1
До: 50
35 15 37 21 8 15 33 20 24 36
35 15 15 20