Процедура

[jester_1936]

Помогите плиз написать написать процедуру,которая вычисляет квадратный корень из суммы квадратов всех эллементов заданной матрицы.

[psycho-coder]

Какая матрица?

[jester_1936]

Program Norma;
type Q=array [0..3,0..3] of real;
Procedure vvod(Var x:Q; Var kolvo:integer);
Var n,m:integer;
begin
repeat
write('Vvedite kolvo elementov massiva [1..x,1..x]:');
readln(kolvo);
until kolvo>0;
for n:=1 to kolvo do
for m:=1 to kolvo do
begin
write('element:');
read(x[n,m]);
end;
for n:=1 to kolvo do
begin
writeln(' ');
for m:=1 to kolvo do
begin
write(x[n,m]);
write(' ');
end;
end;
end;

[jester_1936]

вот допустим эту задаём)

[psycho-coder]

Вот. Но учти что выводится значение в экспоненциальной форме, т.е. с Е

Program ss;
Uses Crt;
var
  Q: array [0..3, 0..3] of Integer;
  i, j: Integer;
  res: Real;

begin
  ClrScr;
  RandomIze;
  res := 0;

  for i := 0 to 3 do
    for j := 0 to 3 do
      Q[i, j] := Random(5) + 2;

  for i := 0 to 3 do
  begin
    for j := 0 to 3 do
    begin
      res := res + Sqr(Q[i, j]);
      Write(Q[i, j], '   ');
    end;
    WriteLn;
  end;

  WriteLn;
  WriteLn('KopeHb = ', Sqrt(res));
  ReadKey;
end.

P.S. Надеюсь сам в процедуру загонишь?

[jester_1936]

да))большое спасибо))