Question

В классе 20 учеников писали диктант по русскому языку.Напишите программу(на Паскале)подсчитывающая количество полученных 2,3,4,5.

Answer 1

Const n = 20;
var rez:array[2..5] of integer;
i,a:integer;
begin
  for i:=1 to n do begin
    write(i,' ученик получил ');
    readln(a);
    inc(rez[a]);
  end;
  writeln;
  for i:=2 to 5 do
    writeln('Оценку ',i,' получили ',rez[i]);  
end.

Тестовое решение:
1 ученик получил 3
2 ученик получил 4
3 ученик получил 3
4 ученик получил 5
5 ученик получил 2
6 ученик получил 2
7 ученик получил 3
8 ученик получил 4
9 ученик получил 5
10 ученик получил 4
11 ученик получил 2
12 ученик получил 3
13 ученик получил 3
14 ученик получил 4
15 ученик получил 5
16 ученик получил 5
17 ученик получил 3
18 ученик получил 5
19 ученик получил 4
20 ученик получил 4

Оценку 2 получили 3
Оценку 3 получили 6
Оценку 4 получили 6
Оценку 5 получили 5

Answer 2

Вот пример программы на Pascal, которая подсчитывает количество полученных оценок 2, 3, 4 и 5 после диктанта для 20 учеников:

pascalCopy code
program CountGrades;

var
  Grade: Integer;
  Count2, Count3, Count4, Count5: Integer;

begin
  Count2 := 0;
  Count3 := 0;
  Count4 := 0;
  Count5 := 0;

  writeln('Введите оценки для 20 учеников:');

  for i := 1 to 20 do
  begin
    write('Ученик ', i, ': ');
    readln(Grade);

    case Grade of
      2: Count2 := Count2 + 1;
      3: Count3 := Count3 + 1;
      4: Count4 := Count4 + 1;
      5: Count5 := Count5 + 1;
    end;
  end;

  writeln('Количество оценок:');
  writeln('2: ', Count2);
  writeln('3: ', Count3);
  writeln('4: ', Count4);
  writeln('5: ', Count5);

  readln;
end.

Программа запрашивает оценки для 20 учеников, а затем использует оператор case для подсчета количества оценок 2, 3, 4 и 5. Результат выводится на экран.