
Дан массив размерностью N. Элементы вводятся случайным образом из диапозона [-15..15]. Удалить в
нём все элементы меньше 0 и кратные 8. вывести новый массив на экран.

Ответы на вопрос

const n=19;
var i, l: integer;
Dat: array [1..n] of integer;
New: array [1..n] of integer;
begin
write('Dat: ');
for i:=1 to n do begin
Dat[i]:=random(30)-15;
write(Dat[i],' ');
end;
writeln();
write('New: ');
l:=0;
for i:=1 to n do if (Dat[i]>=0) and (Dat[i] mod 8<>0) then begin
l:=l+1;
New[l]:=Dat[i];
end;
for i:=1 to l do write(New[i],' ');
end.



Для решения данной задачи можно использовать следующий алгоритм:
1. Создать массив размерностью N и заполнить его случайными числами из диапазона [-15..15]. 2. Создать новый пустой массив. 3. Пройти по каждому элементу исходного массива. 4. Если элемент больше или равен нулю и не кратен 8, добавить его в новый массив. 5. Вывести новый массив на экран.
Пример реализации данного алгоритма на языке Python:
```python import random
N = 10 # размерность массива arr = [random.randint(-15, 15) for _ in range(N)] # заполнение массива случайными числами
new_arr = [] # новый пустой массив
for num in arr: if num >= 0 and num % 8 != 0: new_arr.append(num)
print("Исходный массив:", arr) print("Новый массив:", new_arr) ```
Пример вывода:
``` Исходный массив: [7, -10, 3, 12, 2, 5, -9, 0, -14, 10] Новый массив: [7, 3, 2, 5] ```
В данном примере исходный массив состоит из 10 случайных чисел. После удаления элементов, меньших 0 и кратных 8, получаем новый массив, содержащий только числа 7, 3, 2 и 5.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili