Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Dog7771
16.11.2022 16:17 •
Информатика
Дан массив из элементов вывести на экран каждый третий элемент масива
Показать ответ
Ответ:
фелекс54
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 оценок)
Популярные вопросы: Информатика
polinaabramova10
29.06.2022 04:15
Excel электрондық кестесінде Мастердиаграмның 2-ші қадамында қандайпараметрлер орнатылған?...
Эвелишка11
17.02.2023 23:50
Сколько бит информации необходимо для кодирования 1 увета...
2710200013
17.02.2023 23:50
Мне я много проболела и тут учитель по информатике задал тест и подготовку дал 1 день! а я ничего не знаю, совершенно= 1) сообщение записано буквами из 16 символьного алфавита,...
andreisharik2oztjdr
17.02.2023 23:50
Записать программу, которая на название фигуры (треугольник, квадрат, ромб, прямоугольник и т.п.) выводит формулу, по которой вычисляется площадь этой фигуры. в программе использовать...
olgakazakova20oy0u8c
26.08.2022 20:45
Придумайте и запишите 2-3 предложения ,продолжающие рассказ: сказочный мир жил-был маленький бегемотик. и была у него лягушка — такая зеленая и сказочная. опустишь ее в траву,...
7rus790
02.03.2020 23:38
Заплатили 222руб. купили 6 тетрадей по 25 руб,и 8 одинаковых ручек. сколько стоит 1 ручка?...
varfo
02.03.2020 23:38
Два пешехода пошла одновременно навстречу друг другу из двух поселков и встретились через 3 часа. расстояние между поселками 30 км. найдите скорость каждого пешехода, ели у...
salih2
02.03.2020 23:38
Выполнить синтаксический разбор предложения «ольху можно встретить во влажных местах, по берегам рек и озер, в лесах»....
emilylund829
02.03.2020 23:38
Нельзя кипятить в алюминиевом сосуде: 1. khso4; 2. k2so4; 3. cucl2...
0004556189
02.03.2020 23:38
Напишите 3 предложения о самых популярных телевизионных !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.