function IsOrtho(a: array[,] of integer): boolean;
begin
var n := a.RowCount - 1;
for var row1 := 0 to n do
for var row2 := 0 to n do
begin
var s := 0;
for var col := 0 to n do
s += a[row1, col] * a[row2, col];
if (row1 = row2) and (s <> 1) then
begin
IsOrtho := False;
Exit
end;
if (row1 <> row2) and (s <> 0) then
begin
IsOrtho := False;
Exit
end
end;
IsOrtho := True
end;
begin
var n := 5;
var a := ReadMatrInteger(n, n);
if IsOrtho(a) then
Println('Ортонормированная')
else
Println('Не ортонормированная')
end.
На pascalabc.net
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
По вопросам: если вопрос что делать? То на конце мягкий знак, а если что делает и т. д. то значит без мягкого знака.
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
Корова.....................................................