Цитата:
Сообщение от diagen_62
вот сидел пробовал..помогите исправить ошибки
const
b=10;m=4;
var a:array[1..b,1..m] of integer;
p,n,i,g:integer;
begin
randomize;
n:=b;
for i:=1 to n do
for g:=1 to m do begin
p:=a[k,g]; a[k,g]:=a[n,g]; a[n,g]:=p; end
end.
|
Да вроде правильно, вот только непонятно, зачем вводить b и n? Вполне достаточно одного n. И ещё - а ввод значений матрицы Пушкин делать будет?
Потом, после заполнения матрицы случайными числами, желательно на результат посмотреть. И после процедуры перестановки - тоже. Добавлено.
Код:
const
n=10;
m=4;
k=6;
var
a:array[1..n,1..m] of integer;
p,i,g:integer;
begin
randomize;
for i:=1 to n do
begin
for g:=1 to m do
begin
a[i,g]:=random(50);
write(a[i,g]:4);
end;
writeln;
end;
writeln;
for g:=1 to m do
begin
p:=a[k,g];
a[k,g]:=a[n,g];
a[n,g]:=p;
end;
for i:=1 to n do
begin
for g:=1 to m do
write(a[i,g]:4);
writeln;
end
end.
Извиняюсь, исправил там еще ошибки.