Перевести 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);
}
}