Различия между изменённой записью 11172 оставленной Krisphafe 19.11.2017 в 06:09 и
оригинальной записью 10853 оставленной Юлия 13.11.2017 в 00:42
Показать старую версию | новую версию | обе версии
| 1 | - | program m2; | |
| 1 | + | rbdnv | |
| 2 | - | uses Crt; | |
| 3 | - | const n=3; | |
| 4 | - | m=5; | |
| 5 | - | var a:array[1..n,1..m]of Integer; | |
| 6 | - | i,j,c:Integer; | |
| 7 | - | begin | |
| 8 | - | ClrScr; | |
| 9 | - | Writeln('Введите значения элементов матрицы(3х5):'); | |
| 10 | - | for i:=1 to n do | |
| 11 | - | for j:=1 to m do | |
| 12 | - | begin | |
| 13 | - | Write('a[',i,',',j,']='); | |
| 14 | - | Readln(a[i,j]); | |
| 15 | - | end; | |
| 16 | - | Writeln('Заданная матрица:'); | |
| 17 | - | for i:=1 to n do | |
| 18 | - | begin | |
| 19 | - | for j:=1 to m do Write(a[i,j]:4); | |
| 20 | - | Writeln; | |
| 21 | - | end; | |
| 22 | - | Writeln('Полученная матрица:'); | |
| 23 | - | for j:=1 to m do | |
| 24 | - | begin | |
| 25 | - | c:=a[1,j]; | |
| 26 | - | a[1,j]:=a[3,j]; | |
| 27 | - | a[n,j]:=c; | |
| 28 | - | end; | |
| 29 | - | for i:=1 to n do | |
| 30 | - | begin | |
| 31 | - | c:=a[i,2]; | |
| 32 | - | a[i,2]:=a[i,5]; | |
| 33 | - | a[i,5]:=c; | |
| 34 | - | end; | |
| 35 | - | for i:=1 to n do | |
| 36 | - | begin | |
| 37 | - | for j:=1 to m do Write(a[i,j]:4); | |
| 38 | - | Writeln; | |
| 39 | - | end; |