
Вопрос задан 02.04.2021 в 00:50.
Предмет Информатика.
Спрашивает Коротченко Артем.
В классе 20 учеников писали диктант по русскому.Написать программу подсчета кол-ва 2 3 4 5
получивших за диктант

Ответы на вопрос

Отвечает Джуль Лёша.
Const n=20;
var a:array[1..n] of integer;
m:array[2..5] of byte;
i,k:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
end;
writeln;
for i:=1 to n do inc(m[a[i]]);
writeln('Статистика:');
for i:=2 to 5 do writeln(i,' - ',m[i]);
end.
var a:array[1..n] of integer;
m:array[2..5] of byte;
i,k:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
end;
writeln;
for i:=1 to n do inc(m[a[i]]);
writeln('Статистика:');
for i:=2 to 5 do writeln(i,' - ',m[i]);
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на языке Python, которая позволяет подсчитать количество оценок 2, 3, 4 и 5, полученных учениками в классе:
python# Создаем список оценок, полученных учениками
ocenki = [5, 4, 3, 5, 2, 4, 3, 5, 5, 4, 3, 2, 2, 5, 4, 3, 4, 5, 2, 3]
# Создаем счетчики для каждой оценки
ocenka_2 = 0
ocenka_3 = 0
ocenka_4 = 0
ocenka_5 = 0
# Проходим по списку оценок и увеличиваем соответствующий счетчик
for ocenka in ocenki:
if ocenka == 2:
ocenka_2 += 1
elif ocenka == 3:
ocenka_3 += 1
elif ocenka == 4:
ocenka_4 += 1
elif ocenka == 5:
ocenka_5 += 1
# Выводим результаты подсчета
print("Количество оценок 2:", ocenka_2)
print("Количество оценок 3:", ocenka_3)
print("Количество оценок 4:", ocenka_4)
print("Количество оценок 5:", ocenka_5)
В данном случае, список ocenki
содержит оценки, полученные учениками за диктант. Затем мы создаем счетчики для каждой оценки и проходим по списку ocenki
, увеличивая соответствующий счетчик при каждой встрече оценки. В конце программы мы выводим результаты подсчета на экран.
Для вашего случая, вы можете использовать ввод данных пользователем с помощью функции input()
или просто изменить список ocenki
на свой.


Топ вопросов за вчера в категории Информатика

Информатика 47

Информатика 33

Информатика 67

Информатика 18

Информатика 25

Информатика 563

Информатика 16
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili