Матрица 2 |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Матрица 2 |
Svetlana |
Сообщение
#1
|
Гость |
А вот это?
Распечатать часть матрицы выше главной диагонали Да,да, знаю - вы скажете, что это элементарно, но я же только- только начинаю... |
Alex |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 201 Репутация: 0 |
if j>i then {печатаем}, где i-строки, j-столбцы.
|
Alesha_GA |
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 56 Пол: Мужской Репутация: 0 |
2Alex: нужно отвечать полно, для девушки пишешь. :D
Код uses crt; const l=10; var m:array[1..l,1..l] of integer; i,j:integer; begin {заполняем матрицу } randomize; for i:=1 to l do for j:=1 to l do m[i,j]:=random(100); { вывод } for j:=1 to l-1 do begin for i:=j+1 to l do begin write(m[i,j]); end; end; end. Без всяких там if. 2Svetlana: Если ты из Питера, приходи сегодня на праздник! ;) Сообщение отредактировано: volvo - -------------------- Deleting...
All RESET [Return] |
Текстовая версия | 13.11.2024 18:26 |