Технический форум - Показать сообщение отдельно - Как сформировать двухмерный массив 7 на 7 и заполнить его единицами (на Паскале)

AlexZir · 25.12.2008, 11:36

Сначала его нужно прописать в разделе переменных, потом с помощью циклов заполнить.

Код:

var a: array [1..7,1..7] of integer;
     i,j: integer;
begin
for i:=1 to 7 do 
for j:=1 to 7 do a[i,j]:=1;
end.

вывод содержимого массива на экран сделаете сами

25.12.2008, 11:36	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Сначала его нужно прописать в разделе переменных, потом с помощью циклов заполнить. Код: var a: array [1..7,1..7] of integer; i,j: integer; begin for i:=1 to 7 do for j:=1 to 7 do a[i,j]:=1; end. вывод содержимого массива на экран сделаете сами __________________ Убить всех человеков!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070