Получить из массива А матрицу, по k элементов в строке. Недостающие элементы заменить 0 - Turbo Pascal
Формулировка задачи:
Дан одномерный массив A из m элементов. Вводится число k (k<m). Получить из А матрицу, по k элементов в строке. Недостающие элементы заменить 0.
помогите пожалуйста
Решение задачи: «Получить из массива А матрицу, по k элементов в строке. Недостающие элементы заменить 0»
textual
Листинг программы
Const nmax=100;
Var A:array[1..nmax] of integer;
k,m,i,j:integer;
Begin
Randomize;
Repeat
write('Введите m: ');
readln(m);
Until (m>0)and(m<=nmax);
writeln('Массив');
For i:=1 to m do
Begin
A[i]:=random(31)-15;
write(A[i]:4);
End;
writeln;
Repeat
write('Введите k: ');
readln(k);
Until (k>0)and(k<m);
writeln('Матрица');
For i:=1 to m do
Begin
write(A[i]:4);
if i mod k = 0 then writeln;
j:=i;
End;
while (j mod k <> 0) do
Begin
write('0':4);
j:=j+1;
End;
readln;
End.