|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2010, 23:58 | #1 |
Новичок
Джуниор
Регистрация: 07.06.2010
Сообщений: 5
|
Двумерный массив
дан двумерный массив А(7,7).заменить в нем все положительные члены произведением порядковых номеров. Как это делать?
|
08.06.2010, 07:02 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,759
|
В один проход..
|
08.06.2010, 09:06 | #3 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
I'm learning to live...
|
|
08.06.2010, 11:28 | #4 |
Новичок
Джуниор
Регистрация: 07.06.2010
Сообщений: 5
|
пишет ошибку
Program macciv;
Uses CRT; var a:array[1..7,1..7] of integer; i:integer; begin clrscr; for i:=1 to 7*7 do begin a[i div 7,i mod 7]:=10-random(20); write(a[i div 7,i mod 7]:5); end; writeln; { TODO -oUser -cConsole Main : Insert code here } for i:=1 to 7*7 do begin if a[i div 7,i mod 7]>0 then a[i div 7,i mod 7]:=(i div 7+1)*(i mod 7); write(a[i div 7,i mod 7]:5); end; readln; end. пишет ошибку . может у меня паскаль как то нет установлен? помогите. |
08.06.2010, 11:31 | #5 | |
Новичок
Джуниор
Регистрация: 07.06.2010
Сообщений: 5
|
Цитата:
|
|
08.06.2010, 12:00 | #6 |
Форумчанин
Регистрация: 12.05.2010
Сообщений: 125
|
Программа работает нормально, а для красоты вывода можно добавить:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Двумерный массив(C++) | maxtlc | Помощь студентам | 1 | 07.05.2010 17:17 |
Двумерный массив | St1mkA | Помощь студентам | 2 | 18.03.2010 07:32 |
Двумерный массив, одномерный массив. | Branbal | Помощь студентам | 14 | 18.11.2009 12:40 |
Двумерный массив на С | Darh | Помощь студентам | 2 | 08.10.2009 20:20 |
Двумерный массив | apetr | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 30.11.2008 12:32 |