Массив. В квадратном массиве обменять верхний треугольник
uses wincrt;
const nmax=10; var a: array [1..nmax,1..nmax] of integer; i,n,j: byte; buf,v_min, v_max,temp: integer; begin randomize; repeat write ('Razmer matrici,n='); readln(n); until n in [1..n]; writeln('Ishodnay matrica:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4); end; writeln; end; For i:= 1 to n do For j:= 1 to n div 2 + 2 do If ((j>i)and(i+j-1<n))or((i<j)and(i+j-1>n)) Then Begin temp:=a[i,j]; a[i,j]:=a[j,n-i+1]; a[j,n-i+1]:=temp; end; writeln('Polychennaya matr'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end. |
Вижу задание и вижу прогу какую-то. И что? Поделились решением?
|
Часовой пояс GMT +4, время: 04:25. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.