Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
djhvh235
09.06.2023 19:46 •
Информатика
Дан массив из элементов вывести на экран каждый третий элемент масива
Показать ответ
Ответ:
Darya0012
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 оценок)
Популярные вопросы: Информатика
vladazheleznova06
12.01.2023 20:42
Что такое шаблон документа? совокупность параметров оформления документасредство организации связи между документами...
26040717
14.03.2022 21:32
Дан программный код: import math a=int(input() if а2=1: a=math.pow(a, 2) elif a...
scorpu
27.10.2022 20:17
A, b, c-map (int, input().split()) if a==b and a==c and b==C: print( ia ) else: print( jog ) Ln:2 Col: 1...
Qucha
17.10.2021 05:45
завтра открытый урок, придут 50 учетелей!!...
kalmanbaevarrr
22.11.2020 10:02
Верные роботы Бориса Ивановича выстроились перед ним в шеренгу. Он выбирает тех, кто сегодня будет красить школьный забор. Остальные сыграют в футбол. Борис Иванович решил,...
киса798
24.05.2023 00:47
6) З яких об’єктів складається комп’ютерна публікація?...
dora12345pandora
29.12.2021 05:11
Продолжите сочинение: у меня есть любимая собака,зовут её влада.порода у неё овчарка.когда я летом приезжаю в гости к дедушке на дачу,при встрече со мной она всегда бежит и...
artur282
29.12.2021 05:11
Напишите уравнение реакций получения железа из оксида железа (3)путём восстановления оксидом углерода (2)...
mogilko88
29.12.2021 05:11
Подберите коэффициенты с использованием наименьшего общего кратного (hok). г) n2+h2- nh3 д) al+cucl2- alcl3+cu е...
megastas777
29.12.2021 05:11
Найдите все углы, образованные при пересечении двух параллельных прямых секущей, если внутренние односторонние углы относятся как 11: 25....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.