Преобразовать код Pascal в C# (консоль)

@Dryn69 · Регистрация: 12.10.2022

Студворк — интернет-сервис помощи студентам

Задача: В группе учится N учеников, ученики получили по четыре отметки за экзамен. Определить количество неуспевающих учеников и средний балл класса.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  count_losers, sum, current_sum, mark, i, j, n: integer;
 
begin
  read(n);
  count_losers := 0;
  for i := 1 to n do
  begin
    current_sum := 0;
    for j := 1 to 4 do
    begin
      read(mark);
      current_sum := current_sum + mark;
    end;
    if current_sum < 10 then
      inc(count_losers);
    sum := sum + current_sum;
  end;
  writeln('Неуспевающих учеников: ', count_losers);
  writeln('Средняя сумма четырёх отметок: ', sum / n);
  writeln('Средняя отметка: ', sum / 4 / n);
end.

Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2

Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625

Добавлено через 5 минут
Оценки сделать через рандом

@roach1967 · 26.10.2022, 06:36

Dryn69,

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
using static System.Console;
 
namespace ConsoleApp87
{
    internal class Program
    {
        static void Main(string[] args)
        {
            Write("Количество учеников: ");
            int n = int.Parse(ReadLine());
            int sum = 0;
            int count_losers = 0;
            int current_sum;
            for (int i = 0; i < n; i++)
            {
                current_sum = 0;
                Write($"Четыре оценки ученика {i + 1} через пробел: ");
                string[] grades = ReadLine().Split(' ');
                for (int j = 0; j < grades.Length; j++) current_sum += int.Parse(grades[j]);
                if (current_sum < 10) count_losers++;
                sum += current_sum;
            }
            WriteLine($"Неуспевающих учеников: {count_losers}");
            WriteLine($"Средняя сумма четырёх отметок: {(double)sum / n:0.0}");
            WriteLine($"Средняя отметка: {sum / 4.0 / n:0.000}");
            ReadLine();
        }
    }
}

Результат:

Code
1
2
3
4
5
6
7
8
Количество учеников: 4
Четыре оценки ученика 1 через пробел: 2 2 2 5
Четыре оценки ученика 2 через пробел: 2 2 5 2
Четыре оценки ученика 3 через пробел: 2 5 2 2
Четыре оценки ученика 4 через пробел: 3 2 2 2
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/