Question

Подсчитать количество нечетных элементов массива из 10 чисел. (С полным ответом! Pascal ABC)

Answer 1

Ответ:
var a: array [1..10] of integer;
i, j: integer;
begin
j:=0;
for i:=1 to 10 do
read(a[i]);
writeln;
for i:=1 to 10 do
if (not odd(a[i])) then inc(j);
writeln(j);
end.

Answer 2

Для подсчета количества нечетных элементов в массиве из 10 чисел на языке Pascal ABC, вы можете использовать следующий код:

pascalCopy code
program CountOddNumbers;

var
  arr: array[1..10] of integer;
  i, countOdd: integer;

begin
  countOdd := 0; // Инициализируем счетчик нечетных чисел

  // Заполняем массив случайными числами
  for i := 1 to 10 do
  begin
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Подсчитываем нечетные элементы
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 <> 0 then
      countOdd := countOdd + 1;
  end;

  writeln('Количество нечетных элементов: ', countOdd);
end.

Этот код создает массив из 10 чисел, заполняет его значениями, а затем перебирает элементы массива, чтобы определить, является ли каждый элемент нечетным. Количество нечетных элементов записывается в переменную countOdd, и результат выводится на экран.

Вы можете выполнить эту программу в среде разработки Pascal ABC, и она покажет вам количество нечетных элементов в вашем массиве.