Подсчитать количество нечетных элементов массива - Pascal ABC
Формулировка задачи:
Помогите, пожалуйста.
Напишите программу, которая формирует массив из 15 случайных целых чисел диапазоне от 1
до 30. Сделайте контрольный вывод массива. Подсчитайте количество нечетных элементов
массива.
Решение задачи: «Подсчитать количество нечетных элементов массива»
textual
Листинг программы
const n=15;
var
a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=1+random(30);
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do begin
if a[i] mod 2 = 1 then
k:=k+1;
end;
writeln('Количество нечетных элементов массива = ',k);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д