Во-первых, программа принимает текст, независимо от того, сколько строк было введено, и "читать" она перестанет только после ввода символа с кодом 0, напечатать который можно сочетанием клавиш [email protected]
Во-вторых, ты выводишь результат в строку, но, на мой взгляд, из-за этого выходит какой-то bull sh, так что я использую на "Write()", а "WriteLine()". Ты же можешь поменять, если критично.
Код ниже
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace kekus3{ class main { static void Main(string[] args) { string s = ""; char buff; while ((buff = (char)Console.Read()) != 0) s += buff.ToString(); Console.WriteLine(); for (int i = 0; i < s.Length; ++i) if (s[i] >= '0' && s[i] <= '9') Console.WriteLine(" {0} элемент - {1}", i+1, s[i]); Console.ReadKey(); } } }
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в матрице:'); var m:=9; Writeln('*** Исходная матрица ***'); var a:=new real[n,m]; Randomize; for var i:=0 to n-1 do for var j:=0 to m-1 do a[i,j]:=Random(-100,100)/10; a.Println(5,1); Writeln(5*a.ColCount*'-'); var col:=1; Write('Средние арифметические: '); while col<=m-1 do begin Write(a.Col(col).Average:0:2,' '); col+=2 end; Writeln end.
Во-первых, программа принимает текст, независимо от того, сколько строк было введено, и "читать" она перестанет только после ввода символа с кодом 0, напечатать который можно сочетанием клавиш [email protected]
Во-вторых, ты выводишь результат в строку, но, на мой взгляд, из-за этого выходит какой-то bull sh, так что я использую на "Write()", а "WriteLine()". Ты же можешь поменять, если критично.
Код ниже
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace kekus3{
class main {
static void Main(string[] args) {
string s = ""; char buff;
while ((buff = (char)Console.Read()) != 0)
s += buff.ToString();
Console.WriteLine();
for (int i = 0; i < s.Length; ++i)
if (s[i] >= '0' && s[i] <= '9')
Console.WriteLine(" {0} элемент - {1}", i+1, s[i]); Console.ReadKey();
}
}
}
Код выше
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
Пример
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
Средние арифметические: -3.37 -4.82 0.32 -1.85