Перевести с паскаль на c# - C# (179521)

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

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

1)
var a:array[1..29] of real; m:real; i:byte;
begin m:=0;
       for i:=1 to 29 do
       begin write('kol-vo osadkov ',i,'-go dnya: ');
             readln(a[i]);
             if a[i]=0 then inc(m);
       end;
       writeln('kol-vo dney: ',m);
       readln;
end
2)
const n=25;
var a:array[1..n] of integer;
s1,s2:real;
i,k,m:integer;
begin
for i:=1 to n do 
begin readln(a[i]);
if a[i]>100 then begin s1:=s1+a[i]; k:=k+1 end else
begin s2:=s2+a[i]; m:=m+1 end;
end;
writeln('sr massa polnih',s1/k:5:2);
writeln('sr massa ostalnih',s2/m:5:2);
readln
end.

Решение задачи: «Перевести с паскаль на c#»

textual
Листинг программы
            const int n = 25;
            double s1 = 0, s2 = 0;
            int k = 0,m = 0;
            int[] a = new int[n];
            for(int i = 0; i < a.Length; i++)
            {
                a[i] = int.Parse(Console.ReadLine());
                if (a[i] > 100)
                {
                    s1 = s1 + a[i];
                    k = k + 1;
                }
                else
                {
                    s2 = s2 + a[i];
                    m = m + 1;
                }
            }
            Console.WriteLine("SR Massa Polnih {0}", Math.Round(s1 / k, 2));
            Console.WriteLine("SR Massa Ostalnih {0}", Math.Round(s2 / m, 2));
            Console.ReadKey(true);

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


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

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

10   голосов , оценка 4.3 из 5