Перевести c Pascal на C#
Формулировка задачи:
Составить программу определения количества элементов массива, больших среднего арифметического всех его элементов.
Program SrArifm; uses CRT; var x : array[1..10,1..10] of integer; i,j,m,n,k : byte; sr : real; begin randomize; write('razmer : ');readln(m,n); writeln('massiv:'); for i:=1 to m do begin for j:=1 to n do begin x[i,j] := random(12) - 2; write(x[i,j],' '); sr := sr +x[i,j]; end; writeln; end; sr := sr /(m*n); for i:=1 to m do for j:=1 to n do if x[i,j] > sr then inc(k); writeln; writeln(k); end.
Решение задачи: «Перевести c Pascal на C#»
textual
Листинг программы
using System; class Program { static void Main(string[] args) { Console.Write("Размер массива: "); uint size = uint.Parse(Console.ReadLine()); int[] array = new int[size]; Random random = new Random(); int sum = 0; for (int i = 0; i < array.Length; sum += array[i], i++) { array[i] = random.Next(-2, 10); Console.Write(array[i] + " "); } double avg = (double)sum / (double)array.Length; uint count = 0; for (int i = 0; i < array.Length; i++) if (array[i] > avg) count++; Console.WriteLine("\nСреднее арифметическое: {0:f2}\n" + "Количество чисел больших среднего арифметического: {1}", avg, count); Console.ReadKey(true); } }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д