Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Викa1000000
24.01.2020 19:28 •
Информатика
Дан массив из элементов вывести на экран каждый третий элемент масива
Показать ответ
Ответ:
Maga052005
07.10.2020 15:48
Program massiv;
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Zasxca
10.05.2021 09:02
20. услуги, предоставляемые компьютерной сетью, зависят от: а) типа подключения б) характеристик модема в) качества линии связи г) все перечисленное выше справедливо 21. провайдер...
Даша1444444
10.05.2021 09:02
Алфавит некоторого языка состоит из 64 символов.оцените информационный объём сообщение длиной в 27 символов....
николь43
14.04.2023 06:51
Фотографию размером 1280*1024 сохранили на компьютере. Для хранения информации о цвете использовали 8 бит. Определите размер получившегося файла (в Кбайтах). В качестве ответа...
рот40
19.08.2021 07:22
СОР 1. Робототехника это -2. Гироскопический датчик это-3. Что такое спрайт-4. Дайте понятие термину скрипт-5. Анимация спрайта это-...
ИЛЬЯ14112005
11.03.2020 11:04
Обсяг повідомлення, що містить 2048 символів, дорівнює 5/4 частини кілобайта. Яка потужність алфавіту, за до якого записане це повідомлення?...
лямда1234
21.05.2021 07:02
Индекс пен массив элементтерінің арасындағы айырмашылықты жазыңыздар....
maximfz
03.08.2021 08:57
Екі қорғанды салыстырыңдар Кестеде берілген критерийлер негізінде Бесша-тыр және Шілікті қорғандарын салыстырыңдар.Берілген кестені дәптерге сызып алып толты-рыңдар.ШіліктіБесшатырОрналасқан...
Bigrash
23.10.2022 08:35
Какое количество информации потребуется для 1 информационного поля...
Anastasya156
24.03.2021 05:11
7-7712-93-9 Морфологічна норма 3 347. Прочитайте речення, вибираючи правильну форму слова. Обгрунтуйте свій вибір. 1. Нараду (провів, провела) заступник начальника Нілова Н....
danilejik
31.03.2020 04:53
Чи є вектори a(-3;1) b(4;12)перпендикулярним...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.