Если сумма всех элементов массива чётная, нужно вывести количество нечётных - Pascal ABC

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

Дан целочисленный массив А из 20 целых случайных чисел от 10 до 90. Если сумма всех элементов массива чётная, нужно вывести количество нечётных ( по значению ) элементов массива, если нечётная - количество чётных. Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 2 - количество нечётных элементов, так как общая сумма всех элементов чётна.


textual

Код к задаче: «Если сумма всех элементов массива чётная, нужно вывести количество нечётных - Pascal ABC»

program by_XYCAK;
 
var
  a: array[1..20] of integer;
  i, sum, ammountOfOdd, amountOfEven: integer ;
 
begin
  sum := 0;
  ammountOfOdd := 0;
  amountOfEven := 0;
  randomize;
  for i := 1 to 20 do 
  begin
    a[i] := random(80) + 10; // Создаем массив рандомных чисел 10 < a[i] < 90
    write(a[i], '; ');
  end;
  for i := 1 to 20 do 
  // Подсчет количества четных и нечетных элементов массива
    if a[i] mod 2 = 0 then  
      amountOfEven := amountOfEven + 1
    else 
      ammountOfOdd := ammountOfOdd + 1;
  for i := 1 to 20 do 
    sum := sum + a[i]; 
  if sum mod 2 = 0 then // Проверка суммы на четность/нечетность 
    writeln('Количество нечетных элементов = ', ammountOfOdd)
  else writeln('Количество четных элементов массива = ',amountOfEven);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.857 из 5

Источник