Подсчитать количество четных элементов в динамическом массиве - 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.
Объяснение кода листинга программы
- Объявление переменных:
- a: массив целых чисел;
- n, i, k: целочисленные переменные.
- Цикл, который повторяется до тех пор, пока пользователь не введет число от 1 до 1000.
- Установка длины массива a равной введенному значению n.
- Установка значения k равным 0.
- Цикл, который считывает элементы массива a и проверяет, является ли каждый элемент четным числом. Если это так, значение k увеличивается на 1.
- Вывод количества четных элементов массива a.
- Ввод для завершения работы программы.
- Установка длины массива a равной 0 для освобождения памяти.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д