Удалите из массива все четные элементы - 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.

  1. Создается переменная A типа array[1..10] of integer, которая представляет собой массив из 10 целых чисел.
  2. Задаются три переменные: i, j и n. Переменная i и j используются для цикла, а переменная n используется для ограничения цикла.
  3. С помощью функции Randomize генерируются случайные числа в диапазоне от 0 до 9 (так как массив содержит 10 элементов).
  4. Запускается цикл for, в котором для каждого элемента массива A[i] присваивается случайное число от 0 до 9.
  5. Выводится исходный массив с помощью команды Write.
  6. Запускается еще один цикл for, который проходит по всем элементам массива A[i] от n до 1 и проверяет, является ли текущий элемент четным числом. Если это так, то происходит следующее:
    • Для каждого следующего элемента массива A[j] от i до n-1 присваивается значение A[j+1].
    • Делается уменьшение значения переменной n на 1.
  7. Выводится массив после удаления четных элементов с помощью команды Write.
  8. Запускается команда Readln для остановки программы. Таким образом, данный код удаляет все четные элементы из массива и выводит его после удаления.

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы