Проанализируйте и опишите, в какие сегменты образовательного процесса ИКТ встроены на регулярной основе в вашей образовательной организации, а какие лишь планируется охватить ИКТ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),2,5); a.Println; var b:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]) .Select(t->t[1]).ToArray; Writeln('Сдано на 5: ',b[3]); Writeln('Сдано на 4: ',b[2]); Writeln('Сдано на 3: ',b[1]); Writeln('Не допущено: ',b[0]) end.
Пример n= 20 4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2 Сдано на 5: 3 Сдано на 4: 8 Сдано на 3: 4 Не допущено: 5
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),2,5); a.Println;
var b:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0])
.Select(t->t[1]).ToArray;
Writeln('Сдано на 5: ',b[3]);
Writeln('Сдано на 4: ',b[2]);
Writeln('Сдано на 3: ',b[1]);
Writeln('Не допущено: ',b[0])
end.
Пример
n= 20
4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2
Сдано на 5: 3
Сдано на 4: 8
Сдано на 3: 4
Не допущено: 5