writeln;
writeln('Объединённый массив z');
for i := 1 to n do z[i] := x[i];
for i := 1 to m do z[i+n] := y[i];
for i := 1 to n+m do write(z[i], ' ');
Const
n=10;
Type iMass =Array [1..n,1..n] Of Integer;
Var
A : iMass;
i, j, MinS : Integer;
Procedure MinInStr(M : iMass; n : Integer; i : Integer; Var MinStr : Integer);
Var j :Integer;
Begin
MinStr := M[i,1];
For j := 1 To n Do If M[i,j] < MinStr Then MinStr := M[i,j];
End;
Function NNegaRow(M : iMass; n : Integer; i : Integer) :Integer;
Var j, mm :Integer;
Begin
mm := 0;
For j := 1 To n Do If M[j,i] < 0 Then mm := mm + 1;
NNegaRow := mm;
End;
Begin
Randomize;
Writeln;
Writeln('Массив A');
Write(' j= ');
For j := 1 To n Do Write(j : 4);
For i := 1 To n Do Begin
Writeln;
Write(' i=', i : 3,' == ');
For j := 1 To n Do Begin
A[i,j] := Random(198)-99;
Write(A[i,j] :4);
End;
End;
Writeln;
Writeln;
Writeln('Минимальный элемент в каждой строке');
Write(' i=');
For i := 1 To n Do Write(i : 4);
Writeln;
Write(' ');
For i := 1 To n Do Begin
MinInStr(A, n, i, MinS);
Write(MinS : 4);
End;
Writeln;
Writeln;
Writeln('Количество отрицательных элементов в каждом столбце');
Write(' j=');
For j := 1 To n Do Write(j : 4);
Writeln;
Write(' ');
For j := 1 To n Do Write(NNegaRow(A, n, j) : 4);
End.
if odd(x[i]) then c:=c+x[i];(*сумма нечетных*)
if odd(i) then c:=c+x[i];(*сумма нечетных*)
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.