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

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.

##

function MaxN(a: array of real; n: integer) := a.IndexMax + 1;

var na := ReadInteger('NA =');

var a := ArrRandomReal(na, -1000, 1000);

a.Transform(t -> Round(t, 1));

a.Println;

Println('Номер максимального элемента равен', MaxN(a, na));

var nb := ReadInteger('NB =');

var b := ArrRandomReal(nb, -100, 100);

b.Transform(t -> Round(t, 1));

b.Println;

Println('Номер максимального элемента равен', MaxN(b, nb));

var nc := ReadInteger('NC =');

var c := ArrRandomReal(nc, -250, 500);

c.Transform(t -> Round(t, 1));

c.Println;

Print('Номер максимального элемента равен', MaxN(c, nc));

import random

#если нужен ручной ввод - matrix=[[int(input(str(i+1)+" группа " + str(x+1) + " курса: ")) for i in range(6)] for x in range(5)]

matrix=[[random.randint(1,26) for i in range(6)] for x in range(5)]

print(matrix) #чисто для проверки, можно стереть

#запись промежуточных переменных для вычисления минимума

minimum=1000

minimum1=minimum

minimum_grop_list=[]

for i in range(5): #главный цикл, который идет по курсам

   if sum(matrix[i])<minimum: #суммирует количество людей во всех группах курса и ищет наименьшее

       minimum=sum(matrix[i])

       minimum_year=i+1

   minimum2=1000 #тут переменная с каждым курсом перезаписывается для того, чтоб искать наименьшее в каждом из курсов

   for x in range(6): #цикл по курсу, перебирает группы

       if matrix[i][x]<minimum2: #поиск наименьшего в курсе

           minimum2=matrix[i][x]

           minimum_group1=x+1

       if matrix[i][x]<minimum1: #поиск самой наименьшей группы

           minimum1=matrix[i][x]

           minimum_group=x+1,i+1

   minimum_grop_list.append(minimum_group1)

print("a)",minimum_year) #выводит курс

print("б)",*minimum_group) #выводит номер группы, потом курс

print("в)", *minimum_grop_list) #выводит наименьшие группы в каждом из курсов