Есть программа удаления строки матрицы. Как её превратить в программу для вставки строки? Program obn_str;
var
i, j:integer;
obn: array [1..4,1..3] of integer;
begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 3 do
obn[i,j]:=random(50)+1;
end;
for i:=1 to 4 do begin
for j:=1 to 3 do
write(obn[i,j]:3);
writeln;
end;
writeln;
for i:=1 to 4-1 do begin
for j:=1 to 3 do
obn[i,j]:=obn[i+1,j];
end;
for i:=4 to 4 do begin
for j:=1 to 3 do
obn[i,j]:=0;
end;
for i:=1 to 4 do begin
for j:=1 to 3 do
write(obn[i,j]:3);
writeln;
end;
end.

Предыдущий
вопрос Следующий
вопрос