Запись оставлена Юлия 13.11.2017 в 00:43 (изменение записи, оставленной Юлия | показать различия)
запустить | скачать | различия | новая запись
- program m2;
- uses Crt;
- const n=3;
- m=5;
- var a:array[1..n,1..m]of Integer;
- i,j,c:Integer;
- begin
- ClrScr;
- Writeln('Введите значения элементов матрицы(3х5):');
- for i:=1 to n do
- for j:=1 to m do
- begin
- Write('a[',i,',',j,']=');
- Readln(a[i,j]);
- end;
- Writeln('Заданная матрица:');
- for i:=1 to n do
- begin
- for j:=1 to m do Write(a[i,j]:4);
- Writeln;
- end;
- Writeln('Полученная матрица:');
- for j:=1 to m do
- begin
- c:=a[1,j];
- a[1,j]:=a[3,j];
- a[n,j]:=c;
- end;
- for i:=1 to n do
- begin
- c:=a[i,2];
- a[i,2]:=a[i,5];
- a[i,5]:=c;
- end;
- for i:=1 to n do
- begin
- for j:=1 to m do Write(a[i,j]:4);
- Writeln;
- end;
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.