Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
danypapajoy8eeo
17.07.2020 19:39 •
Информатика
Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран положительные четные элементы их произведения. с паскаля
Показать ответ
Ответ:
Емсимася
08.10.2020 13:22
Uses crt;
const n=15;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then
write(a[i]:3);
end
0,0
(0 оценок)
Популярные вопросы: Информатика
ElenaFevralV
21.05.2022 14:37
Кто из назови меня своим именем актив и пассив?...
paschprudnikov
02.03.2022 16:15
Составить графический алгоритм наполнения ведра водой из бочки Имеется пустое ведро. Ученик имеет бочку с водой и кружку...
maloy4424
22.07.2021 19:04
Написать код на С++!(И как можно легче для понимания Написать функцию, которая определяет, входит в состав заданного символьной строки указанное пользователем ключевое...
gorbunovayulia
08.02.2021 16:18
Введення даних мова С задания начальных значений. 2. Условие выхода из цикла изменения параметров в цикле про это написать...
Мария05m
22.01.2023 23:45
Протокол маршрутизации ID IP TCP TCP/ IP...
Азиза4190
22.01.2023 23:45
6 из 18 Набор слов ЗАГЛАВНЫМИ буквами при общении в сети Интернет служит . Для обозначения чего-то большого Для выражения сильных эмоций (крик) Для привлечения внимания...
swetakorchagov
19.01.2023 14:19
с информатикой с информатикой >...
elinashovhalova
03.04.2021 09:39
найти значение логического выражения найти значение логического выражения...
Lol666kek
01.05.2020 23:41
написать программу для машины Поста 1. Число k задано на ленте k метками. Увеличить число на единицу, если: 1) каретка находится где-то над массивом меток. 2) каретка...
MilanaPopovych
01.11.2022 19:33
Екі скриптіні салыстырыңыз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=15;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then
write(a[i]:3);
end