Составьте программу, которая заполняет массив a[1..8] случайными целыми числами в...

Question

Составьте программу, которая заполняет массив a[1..8] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран количество элементов с четными значениями и сумму элементов массива с нечетными значениями. Пожалуйста по программе 9 класса

Answer 1

Var
  i, c, s: integer;
  a: array[1..8]of integer;

 begin
  s := 0;
  c := 0;
  for i := 1 to 8 do
  begin
    a[i] := random(1, 10);
    write(a[i], ' ');
    if(a[i] mod 2 = 0) then c := c + 1
    else s := s + a[i];
  end;
  writeln;
  writeln('Количество элементов с четными значениями: ', c);
  write('Сумма элементов массива с нечетными значениями: ', s);
end.