Заполнить двумерный массив 4 на 4 случайными значениями так, чтобы его элементы были симметричны главной диагонали.

@Anton_kolmykov · Регистрация: 03.12.2013

@Puporev · 03.12.2013, 12:44

Pascal

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,j:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to i do
a[i,j]:=random(100);
for i:=1 to n-1 do
for j:=i+1 to n do
a[i,j]:=a[j,i];
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end
end.

@Anton_kolmykov · 03.12.2013, 13:04 **[ТС]**

Спасибо))))

@Anton_kolmykov 13 / 2 / 0 Регистрация: 03.12.2013 Сообщений: 128
		1
	Заполнить двумерный массив 4 на 4 случайными значениями так, чтобы его элементы были симметричны главной диагонали. 03.12.2013, 10:35. Показов 2954. Ответов 2 Метки нет (Все метки) Заполнить двумерный массив 4 на 4 случайными значениями так, чтобы его элементы были симметричны главной диагонали. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Anton_kolmykov 13 / 2 / 0 Регистрация: 03.12.2013 Сообщений: 128
	03.12.2013, 13:04 [ТС]	3
	Спасибо)))) 0

Опции темы

Заполнить двумерный массив 4 на 4 случайными значениями так, чтобы его элементы были симметричны главной диагонали.

Решение