tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести с клавиатуры массив
Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5. , в паскаль
Erika211
2 19.09.2019 14:00
0
Ответы
DImonist
08.10.2020 02:22
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x->x mod 5=0).Println;
end.
ПОКАЗАТЬ ОТВЕТЫ
kvastalkerr
08.10.2020 02:22
//Ввести с клавиатуры массив из 5 элементов , вывести элементы массива делящихся на 5
var a:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do if (a[i] mod 5 = 0) then writeln(a[i]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Khajiit999
20.05.2019 06:00
Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой - остроугольный, прямоугольный или тупоугольный. , должно быть 1) тест...
Димон20143
07.07.2019 05:10
Каки термином называют обмена данными между двумя объектами,в том числе между пользователем и компьютерной...
969758676
07.07.2019 05:10
Сколькими можно выбрать четырехзначное число ,в записи которого нет нуля...
Zlowmak
07.07.2019 05:20
)дорешать : если к задуманному двузначному числу приписать слева цифру 2, то полученное трехзначное число будет в 9 раз больше первоначального. найти первоначальное число...
Matrixx666
07.07.2019 05:20
Написать алгоритм: создание папки схемой...
santop
07.07.2019 05:20
Pascal. тема: циклы с клавиатуры вводится целое произвольное число 1) вывести на экран первую и последнюю цифру числа. 2) вывести на экран наибольшую цифру числа 3) вывести...
PabloDC
07.07.2019 05:20
Составьте словесный алгоритм купания в ванной...
Ender222
07.07.2019 05:20
На шахматном поле стоят два коня(черный и белый). выяснить, бьет ли один конь другого. написать программу. p.s. может быть элементарная, но я с программированием не дружу....
panda2438
07.07.2019 05:20
Почему энергонезависимую память целесообразно использовать в мобильных устройствах?...
Фоксе2121
07.07.2019 05:20
Сканируется цветное изображение стандартного размера а4 (21x29,7 см). разрешающая сканера 1200 dpi и 65536 цветов. какой информационный объем будет иметь полученный графический...
Популярные вопросы
Определите, какие слова и словосочетания характерны для публицистического...
3
Harpsmep: 0. The popular name of the flag is Stars and Stripes _T_1....
1
что не является источником загрязнения в жилом помещении чистящее средство...
3
Что роднит и что отличает изученные произведения Распутина, Айтматова,...
3
Берілген сын есімдерден шырайларын жасап,3 сөйлем құрастырыңдар. Дарынды,...
2
у меня соч а я незнаю что делать Задана пропорция 36:x= y:2. Найдите...
2
Хлор может образовывать пять оксидов разного состава. Составьте формулу...
2
Покажите, что сумма 81+36 делится на 9 и вычислите...
1
ЭТО ЖЕ ОТНОСИТСЧ ТОЙ ФОТКЕ...
3
Задание 3. Установите хронологическую последовательность исторических...
3
//Версия 3.3, сборка 1634
begin
ReadArrInteger(5).Where(x->x mod 5=0).Println;
end.
var a:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do if (a[i] mod 5 = 0) then writeln(a[i]);
end.