Удалите из массива все четные элементы - Pascal ABC
Формулировка задачи:
Задан массив А (10). Удалите из него все четные элементы
Решение задачи: «Удалите из массива все четные элементы»
textual
Листинг программы
var A: array[1..10] of integer; i, j, n : integer; begin Randomize; {для Pascal ABC - не обязательно} n := 10; for i:=1 to n do A[i] := Random(10); Write('Исходный массив:'); for i:=1 to n do Write(' ',A[i]); WriteLn; {удаление чётных элементов из массива} for i:=n downto 1 do if not odd(A[i]) then begin for j:=i to n-1 do A[j] := A[j+1]; Dec(n); end; Write('Массив после удаления чётных элементов:'); for i:=1 to n do Write(' ',A[i]); WriteLn; Readln {задержка экрана. Для Pascal ABC не нужно!} end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal ABC.
- Создается переменная A типа array[1..10] of integer, которая представляет собой массив из 10 целых чисел.
- Задаются три переменные: i, j и n. Переменная i и j используются для цикла, а переменная n используется для ограничения цикла.
- С помощью функции Randomize генерируются случайные числа в диапазоне от 0 до 9 (так как массив содержит 10 элементов).
- Запускается цикл for, в котором для каждого элемента массива A[i] присваивается случайное число от 0 до 9.
- Выводится исходный массив с помощью команды Write.
- Запускается еще один цикл for, который проходит по всем элементам массива A[i] от n до 1 и проверяет, является ли текущий элемент четным числом. Если это так, то происходит следующее:
- Для каждого следующего элемента массива A[j] от i до n-1 присваивается значение A[j+1].
- Делается уменьшение значения переменной n на 1.
- Выводится массив после удаления четных элементов с помощью команды Write.
- Запускается команда Readln для остановки программы. Таким образом, данный код удаляет все четные элементы из массива и выводит его после удаления.