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 ученик получил 32 ученик получил 43 ученик получил 34 ученик получил 55 ученик получил 26 ученик получил 27 ученик получил 38 ученик получил 49 ученик получил 510 ученик получил 411 ученик получил 212 ученик получил 313 ученик получил 314 ученик получил 415 ученик получил 516 ученик получил 517 ученик получил 318 ученик получил 519 ученик получил 420 ученик получил 4Оценку 2 получили 3Оценку 3 получили 6Оценку 4 получили 6Оценку 5 получили 5