написать программу на языке Паскаль, которая подсчитывает количество двоек, троек, четверок и пятерок, полученных за к/р в классе из 20 человек.
Answers & Comments
ProgrammatorNumber1// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(20,2,5); a.Println; var r:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]); foreach var v in r do Writeln(v[0],': ',v[1]) end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,2,5); a.Println;
var r:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]);
foreach var v in r do Writeln(v[0],': ',v[1])
end.