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();
}
Объяснение:
Вводим размерность массива, вводим номер строки, программа считает сумму квадратов элементов введённой строки.
Program Zn;
uses CRT;
type mas=array [1..20, 1..20] of real;
var A:mas; i,j,g,b,n,m,o:integer; l:real;
Begin
clrscr;
write ('Введите диапазон массива: ');
readln (g,b);
write ('Введите размер массива: ');
readln (n,m);
Randomize;
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(b-g)+g;
write (A[i,j]:5:0, ' ');
End;
writeln;
End;
O:=0;
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[3,j]:=O;
End;
End;
For i:=1 to n do
Begin
For j:=1 to m do
If i=1 then
Begin
L:=l+A[i,j];
End;
End;
writeln ('Новый массив');
For i:=1 to n do
Begin
For j:=1 to m do
Begin
write (A[i,j]:5:0, ' ');
End;
writeln
End;
writeln ('Сумма элементов первой строки= ',l:5:0);
readln;
End.
Вообщем вот.
var rost,ves,resultat:real;
begin
Writeln('Добро в калькулятор веса.');
Write('Введите ваш вес:'); read(ves);
Write('Введите ваш рост:');
read(rost);resultat:=rost-100;
Write('Итог: Ваш вес: ' ,ves);
Writeln('Ваш рост: ' ,rost);
Write('Ваш нормальный вес(+-5):' ,resultat);
end.