24.12.2012, 18:09 | #1 (permalink) |
Новичок
Регистрация: 30.09.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массив. В квадратном массиве обменять верхний треугольник
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. |
24.12.2012, 18:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Полезную информацию так же можно поискать в аналогичных обсуждениях В массиве А(12) вычислить произведение Четырехполюсник. Схема треугольник Сортировка в одномерном массиве Паскаль АВС, сортировка в одномерном массиве без функций и операций В одномерном массиве, состоящем из n вещественных элементов, вычислить Поиск двух MAX в одномерном массиве |
25.12.2012, 02:26 | #2 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Вижу задание и вижу прогу какую-то. И что? Поделились решением?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|