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

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


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

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

12   голосов , оценка 3.917 из 5