Тема
:
Листинг, программа №2
Показать сообщение отдельно
28.05.2012, 19:58
#
4
(
permalink
)
Altana
Member
Регистрация: 12.04.2012
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
10
If S=0 then write('vse ctolbci ydaleni') else
writeln;
For i:=1 to N do begin
For j:=1 to S do write(A[i,j]:3);
Writeln;
end;
спасибо, исправлено)
Altana
Посмотреть профиль
Отправить личное сообщение для Altana
Найти ещё сообщения от Altana
Ads
Яндекс
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
55070