Подсчитать количество четных элементов в динамическом массиве - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Для динамического массива подсчитать количество всех его четных элементов.
uses crt;
type arrr = array[1..1000] of integer;
var
  a: ^arrr;
  n,i,k:integer;
  sr:real;
begin
clrscr;
repeat
  write('Введите количество элементов n>0 Ё n<=1000: '); readln(n);
  until (n>0) and (n<=1000);
  getmem(a,n*sizeof(integer));
  writeln('Введите элементы:');
  for i:=1 to n do
    begin
    readln(a^[i]);
      sr:=sr+a^[i];
    end;
......??

Решение задачи: «Подсчитать количество четных элементов в динамическом массиве»

textual
Листинг программы
program dynarray;
 
uses
  crt;
var
  a: array of integer;
  n,i,k:integer;
begin
  clrscr;
  repeat
    write('Введите количество элементов n>0 Ё n<=1000: ');
    readln(n);
  until (n>0) and (n<=1000);
  SetLength(a,n);
  k:=0;
  writeln('Введите элементы:');
  for i:=0 to n-1 do
    begin
      readln(a[i]);
      if not odd(a[i]) then
        inc(k);
    end;
  writeln('Количество четных элементов: ',k);
  readln;
  SetLength(a,0)
end.

Объяснение кода листинга программы

  1. Объявление переменных:
    • a: массив целых чисел;
    • n, i, k: целочисленные переменные.
  2. Цикл, который повторяется до тех пор, пока пользователь не введет число от 1 до 1000.
  3. Установка длины массива a равной введенному значению n.
  4. Установка значения k равным 0.
  5. Цикл, который считывает элементы массива a и проверяет, является ли каждый элемент четным числом. Если это так, значение k увеличивается на 1.
  6. Вывод количества четных элементов массива a.
  7. Ввод для завершения работы программы.
  8. Установка длины массива a равной 0 для освобождения памяти.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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