Перевод 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(); }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д