Дан массив из десяти целых чисел

а) Код программы на языке Паскаль:

program Zadacha8a;
var
  nums: array[1..10] of integer;
  count: integer;
  i: integer;
begin
  count := 0;
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(nums[i]);
  end;
  for i := 1 to 10 do
  begin
    if nums[i] mod 2 = 0 then
      count := count + 1;
  end;
  writeln('Количество четных элементов массива: ', count);
end.

б) Код программы на языке Паскаль:

program Zadacha8b;
var
  nums: array[1..10] of integer;
  sum: integer;
  i: integer;
begin
  sum := 0;
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(nums[i]);
  end;
  for i := 1 to 10 do
  begin
    if nums[i] mod 2 <> 0 then
      sum := sum + nums[i];
  end;
  writeln('Сумма нечетных элементов массива: ', sum);
end.

в) Код программы на языке Паскаль:

program Zadacha8c;
var
  i, s, m: integer;
  a: array [1..10] of integer;
begin
  s := 0; m := 0;
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    write(i, ' число: ');
    readln(a[i]);
    if a[i] > s then s := a[i];
  end;
  for i := 1 to 10 do
  begin
    if a[i] = s then m := m + 1;
  end;
  writeln(m, ' элемент(-a,-ов) массива имеют максимальное значение.');
end.

а) Код программы на языке Паскаль:

# Инициализация переменных
nums = [0] * 10  # Список для хранения 10 целых чисел
count = 0
print('Введите 10 целых чисел:')
for i in range(10):  # Цикл от 0 до 9 (всего 10 чисел)
    nums[i] = int(input(f'Число {i + 1}: '))  # Ввод целого числа
# Подсчет четных чисел
for num in nums:
    if num % 2 == 0:  # Проверка на четность
        count += 1  # Увеличиваем счетчик четных чисел
# Выводим результат
print(f'Количество четных элементов массива: {count}')

б) Код программы на языке Паскаль:

# Инициализация списка для хранения 10 целых чисел
nums = [0] * 10  # Список из 10 элементов
sum_odd = 0  # Переменная для хранения суммы нечетных чисел
print('Введите 10 целых чисел:')
for i in range(10):  # Цикл для ввода 10 чисел
    nums[i] = int(input(f'Число {i + 1}: '))  # Ввод числа
# Подсчет суммы нечетных чисел
for num in nums:
    if num % 2 != 0:  # Проверка на нечетность
        sum_odd += num  # Добавляем нечетное число к сумме
# Вывод результата
print(f'Сумма нечетных элементов массива: {sum_odd}')

в) Код программы на языке Паскаль:

# Инициализация переменных
a = [0] * 10  # Список для хранения 10 целых чисел
s = 0  # Переменная для хранения максимального значения
m = 0  # Переменная для подсчета количества максимальных значений
print('Введите 10 целых чисел:')
for i in range(10):  # Цикл для ввода 10 чисел
    a[i] = int(input(f'{i + 1} число: '))  # Ввод числа
    if a[i] > s:  # Проверка, является ли текущее число максимальным
        s = a[i]  # Обновляем максимальное значение
# Подсчет количества элементов, равных максимальному значению
for num in a:
    if num == s:  # Если число равно максимальному
        m += 1  # Увеличиваем счетчик
# Вывод результата
print(f'{m} элемент(-а,-ов) массива имеют максимальное значение.')