24.05.2012, 15:13 | #1 (permalink) |
Новичок
Регистрация: 13.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы, Паскаль
|
24.05.2012, 15:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вы не читали аналогичные темы, предлагаю это сделать прямо сейчас Массивы. Паскаль Паскаль. Задачи на массивы Паскаль. Три задачи на массивы Паскаль, три задачи на массивы Паскаль. Задача на массивы |
24.05.2012, 20:55 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=8; Var A,B:Array[1..N,1..N] of Byte; i,j:Byte; Begin Randomize; 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; Writeln; Writeln; For i:=1 to N do begin For j:=1 to N do begin B[i,j]:=A[j,i]; Write(B[i,j]:4); end; Writeln; end; Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|