07.12.2009, 12:23
|
 |
Местный
|
|
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
|
|
Цитата:
|
Сообщение от OXVIL
for i=0 to 9
writeln();
for j:0 to 9
if a[i;j]<>0 then
Writeln(a[i;j]);
exit;
|
Старый добрый Паскаль 
Но в целом товарищь прав |