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

Question

Предложите пользователю ввести 10 оценок, полученных группой студентов на экзамене. Проверьте, что оценки находятся в интервале от 2 до 5. Выведите итого подобного вида: «Отлично: 2|Хорошо: 5|Удовлетворительно: 3|Неудовлетворительно: -|, вместо символа «|» - переход на новую строку.

Answer 1

//PascalABC.Net 3.1.0.1200
uses System;
var
    title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

begin
    writeln('Введите оценки');
    var marks := new Dictionary();
    
    repeat
        var n := ReadInteger();
        if (n > 5) or (n < 2) then continue;
        
        if marks.ContainsKey(n) then
            marks[n] += 1
        else marks.Add(n, 1);
    until marks.Values.Sum >= 10;
    
    for var i := 2 to 5 do
        writeln(title[i], ': ', marks[i]);
end.