Перевод Pascal в C#. Определить количество неуспевающих студентов и средний балл группы

Узнай цену своей работы

Формулировка задачи:

помогите перевести в C# заранее спасибо)) вот условие самой задачи: В группе учится N студентов, студенты получили по четыре отметки за экзамен. Определить количество неуспевающих студентов и средний балл группы.
Const n=5; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(4)+2;
  write(a[i,j]:4);
  end;
  writeln;
 end;
k:=0; s:=0;
for i:=1 to n do
 begin
 d:=0;
 for j:=1 to m do 
  begin
  if a[i,j]=2 then d:=d+1;
  s:=s+a[i,j];
  end;
 if d>0 then k:=k+1;
 end;
writeln('Количество неуспевающих = ',k);
writeln('Средний балл группы = ',s/n/m);
end.

Решение задачи: «Перевод Pascal в C#. Определить количество неуспевающих студентов и средний балл группы»

textual
Листинг программы
       static void Main(string[] args)
        {
            var n = 5;
            var m = 4;
            var r = new Random();
 
            //Инициализация случайными отметками
            var result = Enumerable.Range(0, n).Select(x =>
                            Enumerable.Range(0, m).Select(y => r.Next(1, 6)).ToArray())
                        .ToArray();
            var k = result.Where(x => x.Any( y => y < 3)).Count(); //число неуспевающих
            double s = result.Sum(x => x.Sum()); //сумма баллов за всю группу
 
            Console.WriteLine("Количество неуспевающих = "+k);
            Console.WriteLine("Средний балл группы = "+ (s/n/m));
            Console.ReadKey();
        }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы