1. Информатика
  2. Дан целочисленный массив A[n].

Дан целочисленный массив A[n]. Создайте новый массив, выбросив из A[n] каждый пятый элемент.

Даркфреш Даркфреш    3   21.04.2020 20:53    1

Ответы
Diannata Diannata  13.10.2020 15:24

PascalABC.NET

var a,b: array of integer;

var n: integer;

begin

write('Введите n: ');

readln(n);

a := ArrRandom(n);

write('Исходный массив: ');

a.PrintLn();

write('Новый массив: ');

b := a.FindAll(t -> a.IndexOf(t) mod 5 <> 0);

b.Print();

end.


Дан целочисленный массив A[n]. Создайте новый массив, выбросив из A[n] каждый пятый элемент.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Lehanbratkov Lehanbratkov  19.10.2020 13:03
до конца заполнить таблицу истинности ​...
nooooovikovaaaaa345 nooooovikovaaaaa345  19.10.2020 13:03
Які розділи в службовій частині електронного листа є обов’язковими для заповнення? Чому? Які дії можна виконувати з електронними повідомленнями? Чим відрізняються дії...
Баумгертнер Баумгертнер  19.10.2020 13:04
B программе MS EXCEL В Ячейке В3 на 1-ом, 2-ом и 3-ем листах Книги 1 запишите своифамилию, имя и отчество, соответственно.Затем, на листе 4 в ячейке C5 соедините всёв...
юлия20043 юлия20043  19.10.2020 13:04
Def fun(): a = 5 print(a+1) return(a-1) Какое значение возвратит данная функция?...
tivaschhenko tivaschhenko  13.04.2021 23:29
Информатика( Lazarus ) ​ >...
IncolaRO IncolaRO  13.04.2021 23:28
Всем привет. Не до конца разобралась в строковом типе данных в Паскале, хотелось бы на примере задачи немного вникнуть. Задача. Дан текст из малых русских букв, состоящих...
ДЖАН4848548 ДЖАН4848548  11.03.2021 12:12
Что вам особенно понравилось в рассказе? Как Белолобый очутился в волчьей семье Почему он остался невредимым? Как дед Игнат объяснил историю исчезновения Белолобого?...
evakazakova20 evakazakova20  11.03.2021 12:12
Во где 4. Как ты думаешь какую тайну открыл для себя Моцарт после встречи со сверчком? Вот ответ дайте пож...
Alisa1Karimova Alisa1Karimova  11.03.2021 12:12
4. На координатной плоскости постройте квадрат ABCD с вершини во 5;7); В(1;5); C(-1;-1); D(-7;1).в) Найдите координаты точки E- пересечения диагоналей AC и вог) Найти...
albinasobolevap06lwp albinasobolevap06lwp  11.03.2021 12:12
Преобразуйте и найдите значение выражении: a) Sin12cos48+cos12sin48 b) 1-tg 15 1+tg215...

Популярные вопросы