Цитата:
Сообщение от nikepol
Задан массив х размером N.Сформировать из него матрицу А.содержащую по альфа элементов в строке.недостающие элементы в последней строке (если такие будут)заполнить нулями
|
Например, так:
Код:
CONST
N=20;
VAR
X:ARRAY[1..N] of BYTE;
A:ARRAY[1..N,1..N] of BYTE;
Alpha,Beta:Word;
i,j:Integer;
BEGIN
Randomize;
For i:=1 to N do X[i]:=Random(100);
WriteLn;
For i:=1 to N do Write(X[i]:3);
WriteLn;
Write('Alpha (<',N,')= ');
ReadLn(Alpha);
WriteLn;
Beta:=N div Alpha;
For i:=1 to Beta do
begin
for j:=1 to Alpha do
begin
A[i,j]:=X[(i-1)*Alpha+j];
Write(A[i,j]:3);
end;
Writeln;
end;
If Alpha*Beta<N then
begin
For j:=1 to N-Alpha*Beta do
begin
A[Beta+1,j]:=X[Alpha*Beta+j];
Write(A[Beta+1,j]:3);
end;
For j:=N-Alpha*Beta+1 to Alpha do
begin
A[Beta+1,j]:=0;
Write(A[Beta+1,j]:3);
end;
WriteLn;
end;
ReadLn;
END.