static void Main(string[] args)
{
int N = 0;
Console.Write("Введите размерность массива: ");
N = Convert.ToInt32(Console.ReadLine());
double[,] mas = new double[N, N];
double sum = 0;
int viborStroki = 0;
Console.Write("Введите номер строки: ");
viborStroki = Convert.ToInt32(Console.ReadLine());
Random rnd = new Random();
for(int i = 0; i < N; i++)
{
for(int j = 0; j<N; j++)
{
mas[i, j] = rnd.Next(0, 10);
}
}
for (int i = viborStroki - 1; i < viborStroki; i++)
{
for(int j = 0; j < N; j++)
{
sum += Math.Pow(mas[i, j], 2);
}
}
Console.WriteLine();
Console.Write("Массив: ");
Console.WriteLine();
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
Console.Write(String.Format("{0,3}", mas[i, j]));
}
Console.WriteLine();
}
Console.Write("Сумма квадратов элементов {0}-й строки = ", viborStroki);
Console.Write("{0}", sum);
Console.ReadKey();
}
Объяснение:
Вводим размерность массива, вводим номер строки, программа считает сумму квадратов элементов введённой строки.
1. program Hello;
var i,j:integer; A:array [1..10, 1..10] of integer;
begin
for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);
end.
2. program Hello2;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;
writeln(c);
end.
3. program Hello3;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;
for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;
end.
Подробнее - на - program Hello;
var i,j:integer; A:array [1..10, 1..10] of integer;
begin
for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);
end.
2. program Hello2;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;
writeln(c);
end.
3. program Hello3;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;
for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;
end.
Подробнее - на -
Объяснение: