1. команда 2: 8:2 = 4
2. команда 2: 4:2 = 2
3. команда 2: 2:2 = 1
4. команда 1: 12
5. команда 2: 12:2 = 6
Ответ: 6
Const
nm = 50;{максимальная размерность вектора}
var
i, n: integer;
x: array[1..nm] of real;
s: real;
begin
Write('Введите размерность вектора n -> ');
Readln(n);
Write('Вводите координаты вектора через пробел ');
s := 0;
for i := 1 to n do
begin
Read(x[i]);
s := s + sqr(x[i])
end;
Writeln('Длина вектора равна ', sqrt(s):0:4)
end.
Тестовое решение:
Введите размерность вектора n -> 7
Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47
Длина вектора равна 13.2188
№1
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
--------------------------------
№2
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; mass[i][3] := 1; mass[3][i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.