Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
freks2
01.03.2021 02:16 •
Информатика
(паскаль)заполнить с клавиатуры массив из 10 элементов. вывести на экран те элементы массива, которые имеют четный номер и четное значение .
Показать ответ
Ответ:
888oksana888
24.06.2020 20:45
Program gt;
var a:array[1..100]of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i] mod 2=0)or(i mod 2=0)then write(a[i],' ');
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
VladOZmsl
20.09.2021 14:33
НЕЙРОННЫЕ СЕТИ Какое главное достоинство применения нейронных сетей? а) Возможность решения задач в условиях помех б) Можно обрабатывать сигналы нейронной сетью...
Joker455
18.08.2021 13:17
При наборе слова НЕРЖАВЕЙКА часть букв была набрана в латинскими символами. В кодировке ISO 8859-5 слово выглядит так: ЭХРЦРВХЩКР. Сколько русских букв было в первоначальном...
kitecat12
07.02.2023 07:13
найти минимальный элемент массива если в массиве 5 элементов.Предел значений от -100 до 100...
hetty
10.07.2021 03:33
Запишите функцию, которая заливает окно синим цветом. Набрать маленькими буквами, без пробелов....
asyast26
10.10.2020 15:16
6. Выбери инструменты рисования SketchUp(3б) – три ответа а) Окружность б) Ведение в) Линия г) Смещение д) Прямоугольник е) Тяни/толкай7. Модуль «Стили»...
Vika7928728272
30.07.2020 17:34
Соберите буквы в ячейках по цвету и найдите термины, относящиеся к разделу «Компьютер и безопасность».Например, «Пароль - условное слово или набор знаков, предназначенный...
Каросло
10.01.2023 09:42
На рабочем столе находится файл «Домашнее задание». Марат решил установить пароль на файл. Дополните алгоритм установки пароля: 1. Пункт меню ………………………….. 2. Команда...
bezlikaya1
10.05.2023 04:03
Найти сумму кубов всех целых чисел от 20 до 40. Составьте: a) Блок схему – b) Псевдокод – c) Программу на Питоне –...
Neckbeardicus
17.06.2020 16:58
Задание 1. Обведите в кружок номера правильных ответов на вопросы теста. 1. Маршрутизация и транспортировка данных в Интернете производятся на основе протокола:...
Мира2048
02.12.2022 04:54
написать программу по блок-схеме, на языке си...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..100]of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i] mod 2=0)or(i mod 2=0)then write(a[i],' ');
end;