Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
biolev
22.03.2021 18:32 •
Информатика
Дан массив из n элементов. написать программу, выводящую на экран каждый второй элемент массива.
Показать ответ
Ответ:
Rodionok2341
29.07.2020 16:51
Program zhn;
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
znanija114
29.04.2020 02:12
Який режим роботи з таблицею дозволяє вводити до неї данi?...
кар91
20.04.2022 00:30
напишите функцию, которая «разворачивает» десятичную запись числа наоборот, например, из 123 получается 321, и из 3210 – 0123. Именно функция( используется def, return). На языке...
anast0101
19.12.2021 04:30
Составьте программу, которая запрашивает показания температуры t и рисует снежинку, если t =0, или солнышко, если t 0....
lusy43p08hli
09.04.2020 15:23
Іть оце завдання потрібно зробити в екселі якшо зробите в екселі напишіть я вам свою почту скінете документ екселя туди...
gree04
02.12.2020 22:03
Какое значение будет иметь переменная z после выполнения операторов: z: 5; if x 0 then if y 0 then z: = z+1 else z: = z-2; при а) x=1; y=1; b) x=1; y=-1; c)x=-1; y=1; с решением...
Irinamart05
10.05.2021 03:26
Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести no . в паскале....
хюрем4
13.08.2022 02:32
Информация , воспринимаемая органами слуха...
akimkryt42
13.08.2022 02:32
Сколько информации содержит сообщение о том,что 40 лотерейных билетов человек достал билет №16...
Совершенная14
29.04.2021 23:43
Решите неравенство: log^2 по основанию 1/6 x 4...
KINDER123567
29.04.2021 23:43
Решить ! тема закон всемирного тяготения -первое тело массой 50 кг при взаимодействии со вторым телом массой 75 кг получает ускорение 3м/с2 . определите ускорение второго тела....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
type atype = array of Integer;
var
n,i:integer;
a:atype;
begin
write('Введите количество элементов в массиве: ');
readln(n);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100);
if i mod 2 = 0 then writeln(i,') ',a[i]);
end;
end.