26.03.2014, 10:17 | #1 (permalink) |
Новичок
Регистрация: 26.03.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача по информатике
|
26.03.2014, 10:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В данных обсуждениях должна содержаться важная информация для вас Помогите решить задачи по информатике Помогите, пожалуйста, решить задачи по информатике Очень прошу, помогите, пожалуйста, решить задание курсовой работы по информатике Две задачи по информатике: расстояние Хемминга и исправление ошибки в сообщении Пожалуйста, помогите решить простую задачу по информатике в FORTRAN про массив |
26.03.2014, 10:32 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var A:Array[1..12,1..16] of Integer; i,j:Byte; Begin Randomize; for i:=1 to 12 do begin for j:=1 to 16 do begin A[i,j]:=-10+Random(100); Write(A[i,j]:4); end; writeln; end; writeln; for i:=1 to 6 do begin for j:=1 to 16 do write(A[i,j]:4); writeln; for j:=1 to 16 do write(A[13-i,j]:4); if i<6 then writeln; end; Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
помогите пожалуйста |
|
|