Дано n-е количество оценок ученика по некоторому предмету, которые вводятся с клавиатуры. Подсчитать количество «5», «4», «3», «2» и «1» (условный оператор, оператор выбора, символьные и строковые величины не использовать).
Pascal
1 комментария:
Опять дурацкие задания, вместо того, чтобы учить предмет на том, что в реальной жизни встречается. Это как "пообедать, не используя рук, тарелок, и ложек". Можно, конечно, но зачем?
Опять дурацкие задания, вместо того, чтобы учить предмет на том, что в реальной жизни встречается. Это как "пообедать, не используя рук, тарелок, и ложек". Можно, конечно, но зачем? Ответы
Гость //PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var mas:= new integer[n];
Writeln('Введите числа в диапазоне 1..5->');
for var i:=0 to n-1 do
mas[i]:=readinteger;
Writeln('Количество 5=',mas.Where(t->t=5).Count);
Writeln('Количество 4=',mas.Where(t->t=4).Count);
Writeln('Количество 3=',mas.Where(t->t=3).Count);
Writeln('Количество 2=',mas.Where(t->t=2).Count);
Writeln('Количество 1=',mas.Where(t->t=1).Count);
end.
9 комментария:
String нельзя же
begin var a:=ReadArrInteger(ReadInteger); a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderByDescending(t->t[0]).Printlnend.
А у Вас ошибки, все количества неверны, если обе строки - набор отметок.
365 3 4 3 1 5 5 5 3 2 1 3 3 2 5 1 2 1 5 3 4 2 1 5 5 5 3 2 1 3 3 2 5 1 2 1(5,10) (4,2) (3,9) (2,7) (1,8)
нет то я дополнительно вивел масив
но я уже изменил свой ответ
Вы могли просто написать var mas:=ReasArrInteger('Введите числа в диапазоне 1..5->',n);
ок спасибо возьму на заметку
ReadArrInteger
String нельзя же
begin var a:=ReadArrInteger(ReadInteger); a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderByDescending(t->t[0]).Printlnend.
А у Вас ошибки, все количества неверны, если обе строки - набор отметок.
365 3 4 3 1 5 5 5 3 2 1 3 3 2 5 1 2 1 5 3 4 2 1 5 5 5 3 2 1 3 3 2 5 1 2 1(5,10) (4,2) (3,9) (2,7) (1,8)
нет то я дополнительно вивел масив
но я уже изменил свой ответ
Вы могли просто написать var mas:=ReasArrInteger('Введите числа в диапазоне 1..5->',n);
ок спасибо возьму на заметку
ReadArrInteger Похожие вопросы
Информатика
Определите значение переменных x и y после выполнение алгоритма .a) x=15
y=5
Б) x=12
y=11...
Информатика
Сиквейн для слов: гимназия, рождество, друг...
Список предметов
