Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
danilponomary
02.05.2021 11:51 •
Информатика
С! сожмите массив выбросив каждый третий его элемент
Показать ответ
Ответ:
polinka3089
10.08.2020 20:56
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where((x,i)->(i+1) mod 3<>0).ToArray; a.Println
end.
Пример
n= 13
48 3 -35 -13 6 -36 20 4 22 45 -30 -19 31
48 3 -13 6 20 4 45 -30 31
0,0
(0 оценок)
Популярные вопросы: Информатика
police5
05.03.2023 10:33
Найти ошибку: program zad6; var a: array [1..10] of integer; i,n,b: integer; begin read(n); if (n =10) then begin for i: =1 to n do b: =random(n)+0; writeln(a[b]);...
tt9692069
11.04.2023 12:19
Каким образом можно выполнять копирование, перемещение, удаление, переименование файлов?...
artemazarenko
26.02.2023 11:44
Найдите сумму двух чисел. входные данные. в первой строке два целых числа а и в (-10^12 =a,b =10^12), разделенные пробелом. выходные данные. одно целое число- сумму...
potehin30
26.02.2023 11:44
Возможность обеспечения удалённой связи это...
jotik991p010co
31.01.2022 15:23
Двоичный код каждого символа при кодировании текстовой информации ( в кодах ascii) занимает в памяти персонального компьютера...
Ксюшка1521
31.01.2022 15:23
Дано трехзначное число поменять местами третью и первую цифру...
osokina78
10.03.2020 20:46
Информатика. Алгоритмы...
FlaNNkY
04.04.2020 18:32
. В среде программирования Кумир для исполнителя Робот на клетчатом поле получить изображение рисунка. горизонтально 6 клеток...
grigoryanoksan
25.05.2023 19:31
Можно с объяснением. Массивы...
RomisuRomi
03.03.2022 18:11
Как поделить слово на слоги белогрудая,самой,птичка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where((x,i)->(i+1) mod 3<>0).ToArray; a.Println
end.
Пример
n= 13
48 3 -35 -13 6 -36 20 4 22 45 -30 -19 31
48 3 -13 6 20 4 45 -30 31