Question

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

Answer 1

Ответ:

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.