Перевести с паскаль на c# - C# (179521)
Формулировка задачи:
1)
2)
end.
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
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
Решение задачи: «Перевести с паскаль на 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);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д