Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
TimurA1
22.02.2020 05:10 •
Информатика
Сформировать массив е из 12 целых чисел заполнить случ. от -3 до 18 заменить в массиве все четные на 0 вывести массив
Показать ответ
Ответ:
правый1488
09.10.2020 06:29
Var e: array [1..12] of integer;
i,k:Integer;
Begin
randomize;
for i:=1 to 12 do
begin
e[i]:=random(21)-3;
if (e[i] mod 2 = 0) then
e[i] :=0;
write(e[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dnabib
28.04.2022 13:03
Программа на си должна решить следующую : массив х состоит из 8 элементов. элементы массива рассчитываются по формуле x[i]=x[i-1]+i, x[0]=0, i=1,n−−−−−. выберите правильное решение....
Jeembo23
28.04.2022 13:03
102. впишите в клеточки слова-ответы. а) любое словесное высказывание, напечатанное, написанное или существующее в устной форме. б) информация, представленная в форме письменного...
NooDys
19.06.2020 20:07
Вывести на экран все кратный 17 числа от 1 до 100, используя 3 варианта цикла и одну переменную i . ( в паскале)...
камран12
19.06.2020 20:07
Дана программа на языке паскаль: program a2; var a, b, с, min: real; begin writeln ( введите три числа ); readln (a, b, с); min : = а; if b if c writeln ( min= , min) end. составить...
Каримончик
16.02.2023 21:44
Метеостанция. написать программу для расчета среднесуточной температуры, если температура утренняя, дневная и ночная вводится оператором ввода....
egorbud5
16.02.2023 21:44
Сколько кодов можно составить из 3 бит? сколько надо бит, чтобы можно было составить 8 разных кодов?...
alinkaalekseev1
16.01.2020 21:06
Для заданного положительного вещественного числа a необходимо найти максимальное целое число k, при котором выполняется неравенство 1+1/2++1/k...
joker249
04.01.2022 21:40
Какой объем видеопамяти необходим для хранения изображения при условии, что разрешение монитора равно 1024 х 768 пикселей, а количество используемых цветов – 8? выразить ответ...
Eveliinaa
18.08.2021 21:12
1. сколько цветов содержится в палитре растрового рисунка, если на кодирование каждого пикселя отводится 7 бит? 2. какой объем видеопамяти необходим для хранения изображения при...
user666triplesix
18.01.2021 22:54
Вскачках участвуют 35 лошадей. специальное устройство регистрирует прохождение каждой лошадью финиша, записывая ее номер с использованием минимально возможного количества бит,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:Integer;
Begin
randomize;
for i:=1 to 12 do
begin
e[i]:=random(21)-3;
if (e[i] mod 2 = 0) then
e[i] :=0;
write(e[i],' ');
end;
end.