ГДЗ по информатике 9 класс Босова, номер §1.4 № 8

§. № Подсчёт и сумма элементов массива

Дан массив из десяти целых чисел. Напишите программу подсчёта: а) количества чётных элементов массива; б) суммы нечётных элементов массива; в) количества элементов массива, имеющих максимальное значение.

Решение

Обозначим массив через A[]–A[]. Чётное число даёт остаток при делении на , поэтому используем условие A[i] mod = . Если условие ложно, число нечётное и прибавляется к сумме. Для максимума сначала берём первый элемент: массив непустой, поэтому такое начальное значение существует. Затем сравниваем с ним остальные элементы. При новом большем значении заменяем максимум и начинаем счёт с , при равном — увеличиваем счётчик. Это учитывает повторяющийся максимум.

program CountElements;
var
  A: array[..] of integer;
  i, evenCount, oddSum, maxValue, maxCount: integer;
begin
  for i :=  to  do readln(A[i]);
  evenCount := ;
  oddSum := ;
  maxValue := A[];
  maxCount := ;
  for i :=  to  do
  begin
    if A[i] mod  =  then
      evenCount := evenCount + 
    else
      oddSum := oddSum + A[i];
    if A[i] > maxValue then
    begin
      maxValue := A[i];
      maxCount := ;
    end
    else if A[i] = maxValue then
      maxCount := maxCount + ;
  end;
  writeln('Чётных: ', evenCount);
  writeln('Сумма нечётных: ', oddSum);
  writeln('Количество максимальных: ', maxCount);
end.

Например, для чисел , , , , , , , , , чётных (, , , ), сумма нечётных , максимум встречается раза. Программа выводит значения, полученные тем же правилом для введённого массива.

Ответ

Программа выводит количество чётных элементов, сумму нечётных и число вхождений максимума. Для примера: ; ; .

Помогло?

Номер §1.4 № 8