Задание 8 Параграф 1.4 ГДЗ Босова 9 класс 2023 (Информатика)

Задача

а) количества чётных элементов массива;
б) суммы нечётных элементов массива;
в) количества элементов массива, имеющих максимальное значение.
var
k, s, max, i: integer;
a: array[1..10] of integer;
begin
randomize;
for i := 1 to 10 do //ввод масива
begin
a[i] := random(10) + 10;
write(a[i], ‘ ‘) //вывод массива на экран для проверки
end;
writeln;
k := 0; s := 0; max := a[i];
for i := 1 to 10 do
begin
if a[i] mod 2 = 0 then
k := k + 1
else s := s + a[i];
if a[i] > max then max := a[i]//максимальный элемент
end;
writeln(‘Количество четных элементов > > ‘, k);// а)
writeln(‘Сумма нечетных элементов > > ‘, s);// б)
k := 0;
for i := 1 to 10 do
if a[i] = max then inc(k);
writeln(‘Количество элементов, имеющих максимальное значение > > ‘, k)// в)
end.

Подробный ответ

Для решения задачи достаточно один раз просмотреть массив и одновременно подсчитать:

количество чётных элементов;
сумму нечётных элементов;
максимальный элемент массива.

После этого ещё раз просматриваем массив и считаем, сколько раз встречается найденный максимум.

var
  k, s, max, i: integer;
  a: array[1..10] of integer;
begin
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(10) + 10;
    write(a[i], ‘ ‘);
  end;
  writeln;
  k := 0;
  s := 0;
  max := a[1];
  for i := 1 to 10 do
  begin
    if a[i] mod 2 = 0 then
      k := k + 1
    else
      s := s + a[i];
    if a[i] > max then
      max := a[i];
  end;
  writeln(‘Количество чётных элементов: ‘, k);
  writeln(‘Сумма нечётных элементов: ‘, s);
  k := 0;
  for i := 1 to 10 do
    if a[i] = max then
      inc(k);
  writeln(‘Количество элементов, имеющих максимальное значение: ‘, k);
end.