tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Массив из 10 элементов,найти
Массив из 10 элементов,найти все трехзначные числа и кратные 5 (pascalabc)
Hava991111
2 18.09.2019 14:20
0
Ответы
nastich1
08.10.2020 00:10
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,2000); a.Println;
a.Where(x->x.InRange(100,999) and (x mod 5=0)).Println
end.
Пример
1337 1824 163 415 330 1865 180 1695 539 551
415 330 180
ПОКАЗАТЬ ОТВЕТЫ
Kiralex71
08.10.2020 00:10
Program test;
var
arr:=ArrRandom(10,1,2000);
a,b,i: integer;
begin
for i:=0 to 9 do
if (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) then
write(arr[i]+' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
LadyAmfetamin
01.07.2019 12:00
Восемь школьников, оставшихся в классе на перемене, были вызваны к директору. один из них разбил окно в кабинете. на вопрос директора, кто это делал, были получены...
1234567890821
01.07.2019 12:00
Посоветуйте для паскаля на массивы...
viklya30
01.07.2019 12:00
Написать программу, которая будет запрашивать у пользователя целые числа и выводить на экран все числа кроме нулей. запрос на числа осуществлять пока пользователь не...
galaktionov964
01.07.2019 12:00
Type ref = ^integer; var p, q: ref; пусть p^=5 и q=p. что будет выдано на печать в результате выполнения следующих операторов? q^: =p^+1; if p q then p: =nil else q^:...
пупс110
01.07.2019 12:00
Определите, какими будут значения переменных p и d после выполнения операторов: p: =true; d: =1; k: =70; case 2*k div 10 of 3, 2, 7, 5: d: =k; 1: ; 4, 8: begin p: =true;...
stasbrega
27.07.2019 13:10
Уравнение по информатике 256^х гбайт = 256 мбайт...
Aiauka11
27.07.2019 13:00
Перечислите известные вам формы записи алгоритмов...
nikzyk
27.07.2019 13:00
Перевидите чесло 101 из двоичной в десятичную систему...
Sofa29122005
07.09.2019 02:40
Объект и его свойства. из скольких слов может состоять имя объектов. свои примеры....
danveressov
07.09.2019 02:40
Уплемени (чичевоков) в алфавите 24 буквы и 84 цифры, знаков припинания и арифметических знаков нет. какое минимальное количество двоичных разрядов им необходимо для...
Популярные вопросы
Составить 10 парных предложений, (20) с паронимами....
3
Яке число просте? 1) 8, 1) 9 ,3) 1, 4) 5до іть!!...
3
Учитывая, что векторами AB = 2BC являются три точки A, B и C, любая...
2
, в тексте надо выписать все ложно соченённые предложения....
3
ЖАЗЫЛЫМ5-тапсырма. Сөздерді сәйкестендіріп, сөйлем құрап жаз. все...
3
Тут нужно составить схему диалога...
3
Составьте связное высказывание-отзыв (8-10 предложений) наслова...
3
VOCABULARY 1 Read and put a tick (V) or a cross (X). (15 marks)...
2
Знаменитых людях, которые совершили героические поступки какие они...
2
лист бабусі в якому надати їй рекомендації по безпечному користуванню...
1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,2000); a.Println;
a.Where(x->x.InRange(100,999) and (x mod 5=0)).Println
end.
Пример
1337 1824 163 415 330 1865 180 1695 539 551
415 330 180
var
arr:=ArrRandom(10,1,2000);
a,b,i: integer;
begin
for i:=0 to 9 do
if (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) then
write(arr[i]+' ');
end.