Перевод с языка Pascal на C#: Заменить все члены, следующие за членом с наибольшим значением - C# (184388)

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

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

Program n1;
Uses Crt;
var  a: array[1..30,1..30] of integer;
  k,m,i,j,s: integer;
begin  for i:=1 to 18 do begin
  for j:=1 to 12 do begin
  a[i,j]:=random(5001)+5000;
  write(a[i,j]:6);
  end;
  writeln;
  end;
  writeln;
  s:=0; 
 for i:=1 to 18 do
  s:=s+a[i,6]; 
 writeln(‘Summa: ‘, s);
end.
Высчитывает все правильно. Зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]:=random(5001)+5000; (b-a+1)+a — формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается: a = 5000 b = 10000 (10000-5000+1)+5000 = (5001)+5000; Если захочешь поменять сумму зарплаты, думаю поймешь теперь как. for i:=1 to 18 do s:=s+a[i,6]; — этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.

Решение задачи: «Перевод с языка Pascal на C#: Заменить все члены, следующие за членом с наибольшим значением»

textual
Листинг программы
using System;
 
namespace ConsoleApplication1
{
    class Program
    {
        static Random rnd = new Random();
 
        static void Main(string[] args)
        {
            int[,] a = new int[30, 30];
 
            for(int i = 0; i < 18; i++)
            {
                for(int j = 0; j < 12; j++)
                {
                    a[i, j] = rnd.Next(5000, 10000);
                    Console.WriteLine(a[i, j]);
                }
                Console.WriteLine();
            }
            Console.WriteLine();
            int s = 0;
            for (int i = 0; i < 18; i++)
                s = s + a[i, 6];
            Console.WriteLine("Summa: {0}", s);
            Console.ReadKey();
        }
    }
}

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


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

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

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