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

Vladimir_S · 25.12.2008, 21:53

Ну тоже мне - проблема века!

Продолжение:

FOR i:=1 TO 7 DO
BEGIN
FOR j:=1 TO 7 DO
Write(a[i, j]:3);
Writeln;
END;
READLN;
END.

Да, "end." в программе AlexZir убрать.

25.12.2008, 21:53	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну тоже мне - проблема века! Продолжение: FOR i:=1 TO 7 DO BEGIN FOR j:=1 TO 7 DO Write(a[i, j]:3); Writeln; END; READLN; END. Да, "end." в программе AlexZir убрать.

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