Question

В классе 20 учеников писали диктант по русскому языку Напишите программу в паскале подсчитывающую количество двоек, троек, четвёрок и пятёрок полученных за диктант Пожалуйста через рандом и не используя caseЗаранее спасибо ​

Answer 1

var

   d : array of integer := new integer[20];

   b : array of integer := new integer[5];

   

begin

   d := arrRandom(20, 1, 5);

   for var i := 0 to 19 do b[d[i]-1] += 1;

   for var i := 1 to 4 do writeln(i+1, ' получили ', b[i], ' учеников');

end.

Answer 2

Для написания программы в Паскале, которая подсчитывает количество двоек, троек, четвёрок и пятёрок, полученных за диктант, можно использовать массивы и рандомные значения. В данном примере предполагается, что каждая оценка (2, 3, 4 или 5) имеет равную вероятность выпадения.

Вот пример программы:

pascalCopy code
program CountGrades;

uses
  Crt;

const
  NumStudents = 20;

var
  Grades: array[1..NumStudents] of Integer;
  GradeCounts: array[2..5] of Integer;
  i, grade: Integer;

begin
  Randomize;

  // Заполняем массив оценок случайными значениями от 2 до 5
  for i := 1 to NumStudents do
  begin
    Grades[i] := Random(4) + 2;
    writeln('Ученик №', i, ' получил оценку: ', Grades[i]);
  end;

  // Инициализируем массив для подсчета оценок
  for grade := 2 to 5 do
    GradeCounts[grade] := 0;

  // Подсчитываем количество оценок 2, 3, 4 и 5
  for i := 1 to NumStudents do
    Inc(GradeCounts[Grades[i]]);

  // Выводим результаты подсчета
  writeln('Количество двоек: ', GradeCounts[2]);
  writeln('Количество троек: ', GradeCounts[3]);
  writeln('Количество четвёрок: ', GradeCounts[4]);
  writeln('Количество пятёрок: ', GradeCounts[5]);

  Readln;
end.

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