tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу, которая формирует
Составьте программу, которая формирует массив из 10 случайных целых чисел от 5 до 15 и подсчитывает количество нечетных чисел.(и выводит их)
dashapetiaeva
3 19.06.2019 02:50
1
Ответы
Kuro111
15.07.2020 13:53
Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(5,15);
if a[i] mod 2 <>0 then
write(a[i],' ');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yuliyabondar2
07.06.2019 04:50
Составить блок-схемы на данные фразы: 1.если хочешь быть здоров,то закаляйся,иначе сиди,учи. 2.если уроки выучены,иди гулять,иначе сиди,учи. 3. y=a+b разделить на a-2...
topova1
20.07.2019 19:20
Решить по информатике! объём видеопамяти составляет 125кбайт .графический дисплей работает в режиме 500*512 пикселей.какое максимальное количество цветов может содержать палитра?...
mylifeartem
31.03.2019 20:20
Расшифруйте текст, записанный шестнадцатеричным кодом, если известно, что код 98 соответствует букве «й»: а6 97 9е а0 аа. не забудьте, что при кодировании символов используется...
Gklunnyy123
31.03.2019 20:20
Найти все двузначные числа, квадрат суммы цифр которых делится на...
MichiChi
17.07.2019 15:10
Построить график-параболу в паскале авс...
ssssss213r532
17.07.2019 15:10
Опиши своими словами диск и флэшпамять...
keckush
15.12.2020 08:59
Опишите последовательность создания трехмерной модели стола в программе SketchUp...
tmihailviktoroozvxn9
15.12.2020 08:59
Напишите недостающие команды, выполняемые пользователем 1.Выделен D2:E7...
Molodoy186
15.12.2020 09:01
Ретушь фотографий (Казахстан)по вопросам писать в WhatsApp ОЧЕНЬ ДЕШЕВО ...
Алeна1
15.12.2021 21:58
Очень Вас я плохо понимаю профильную математику и, если, Вы напишите, то буду очень благодарна...
Популярные вопросы
Решите За флуд кину жалобу!...
2
Составить 4 во предлож. с фразами (play football, surf the Net, cook dinner,...
3
в номере 1105 сделать 2 и 3 строчки,и номер 1106...
2
Опишите инструменты и их функции ...
3
Точки В і Д лежать в різних півплощинах відносно прямої АС. Відомо, що АВ =...
3
Прочитай предложения, вставь подходящие по смыслу слова в нужной форме:Основные...
3
за весь тест В-1 1). Призма – это выпуклый многогранник, который состоит из:...
3
Определить общее сопротивление участка цепи (оформить как решение задачи),...
2
Дайте відповідь на питання: «Які загальнолюдські цінності утверджувало християнство?»...
3
Реши систему уравнений {−0,1k=18 { k+m=−7...
2
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(5,15);
if a[i] mod 2 <>0 then
write(a[i],' ');
end;
end.