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

Задача

var
a: array[1..20] of integer;
i, k2, k3, k4, k5: integer;
begin
randomize;
for i := 1 to 20 do //ввод массива
begin
a[i] := random(4) + 2;
write(a[i], ‘ ‘); // вывод оценок
end;
writeln; // переход на следующую строку
k2 := 0; k3 := 0; k4 := 0; k5 := 0;
for i := 1 to 20 do
case a[i] of // множественный выбор
2: inc(k2); //прибавление 1
3: inc(k3);
4: inc(k4);
5: inc(k5)
end;
Writeln(‘Двоек > > ‘, k2, ‘, Троек > > ‘, k3, ‘, Четверок > > ‘, k4, ‘, Пятерок > > ‘, k5)
end.
Окно вывода:
3 3 4 5 2 2 2 4 5 5 2 3 5 3 4 5 3 2 3 4
Двоек > > 5, Троек > > 6, Четверок > > 4, Пятерок > > 5

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

Нужно просмотреть все оценки в массиве и отдельно подсчитать, сколько раз встречаются значения $$2$$, $$3$$, $$4$$ и $$5$$. Для этого удобно завести четыре счётчика: k2, k3, k4, k5.

Сначала счётчики обнуляются, затем в цикле по всем 20 элементам массива проверяется значение каждой оценки и увеличивается соответствующий счётчик.

var
  a: array[1..20] of integer;
  i, k2, k3, k4, k5: integer;
begin
  randomize;
  for i := 1 to 20 do
  begin
    a[i] := random(4) + 2;
    write(a[i], ‘ ‘);
  end;
  writeln;
  k2 := 0; k3 := 0; k4 := 0; k5 := 0;
  for i := 1 to 20 do
  case a[i] of
    2: inc(k2);
    3: inc(k3);
    4: inc(k4);
    5: inc(k5)
  end;
  writeln(‘Двоек>> ‘, k2, ‘, Троек>> ‘, k3, ‘, Четверок>> ‘, k4, ‘, Пятерок>> ‘, k5);
end.