помогите пожалуйста...

[Maslan]

Каким образом не работает? Т.е. что именно не получается?

[danekne]

begin в предпоследней строке не нужен, плюс у многих в паскале библиотеки crt нету, особенно в универах, лучше ее не использовать

[puporev]

Посмотрите это вложение. Если что лишнее, уберите. Чего не хватает, добавьте. Чего непонятно, спрашивайте.

[Alira]

Сообщение от Maslan

Каким образом не работает? Т.е. что именно не получается?

не запускается((

[Stilet]

не запускается

А пишет сообщение типа ошибка?

[Alira]

Сообщение от Stilet

А пишет сообщение типа ошибка?

ничего не пишет... просто не запускается...

[PoBeCHuK]

решение 2-ой задачи полностью проверял

program perestanovka;
uses Crt;
const n=4;m=2;
var
A,A1:array [1..n,1..m] of integer;
p,q,i,j,t1:integer;
T:array[1..n] of integer;
begin
Clrscr;
Writeln('Seichas budet proisxodit zapolnenie massiva');
for i:=1 to n do
begin
 for j:=1 to m do
 begin
 Write('Vvedite A[',i,',',j,']=');
 readln(A[i,j]);

 end;
 T[i]:=0;
 end;

Writeln('Vvod dannih v massiv zaver6en');
write('Vvedite p=');read(p);
write('Vvedite q=');read(q);
t1:=1;
for i:=1 to n do
begin
if((i<>p) and( i<>q)) then begin t[t1]:=i;t1:=t1+1;   end;
if(i=q) then begin t[t1]:=q; t[t1+1]:=p; t1:=t1+2; end;

end;
for i:=1 to n do
begin
 for j:=1 to m do
 begin
 t1:=T[i];
 A1[i,j]:=A[t1,j];
 end;
end;
for i:=1 to n do
begin
for j:=1 to m do
 begin
 write(A1[i,j]);
 end;
 writeln;
end;
readln;
end.

ну вот наверное вся программа если че не понятно пиши мне в асю 419598*** - PoBecHuK

Есть кнопка "Правка" + код заключаем в тэги. Номер icq пишем в личку или выставляем на форуме. Читаем правила. SupVis