квадратная матрица |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
квадратная матрица |
Булавка |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Женский Репутация: 0 |
подскажите пожалуйсто программу для решения задачи:
дана квадратная матрица 10*10, найти строку с минимальной суммой элементов и столбец с максимальной суммой модулей элементов. |
Bokul |
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Код uses crt; const x=10; y=10; var mat:array[1..x,1..y] of integer; i,j,max_x,min_y:integer; min,max,buf:longint; begin clrscr; for i:=1 to x do begin for j:=1 to y do read(mat[i,j]); writeln; end; min:=0; min_y:=0; for i:=1 to x do begin for j:=1 to y do begin inc(min,mat[i,j]);; end; if i=1 then begin min_y:=1; buf:=min; end else if min<buf then begin buf:=min; min_y:=i; end; min:=0; end; max_x:=0; max:=0; for i:=1 to y do begin for j:=1 to x do begin inc(max,abs(mat[j,i]));; end; if i=1 then begin max_x:=1; buf:=max; end else if max>buf then begin buf:=max; max_x:=i; end; max:=0; end; writeln('Max = ',max_x,' Min = ',min_y); readln; end. Сообщение отредактировано: Bokul - -------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
Булавка |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Женский Репутация: 0 |
спасибо огромное!!!!!!!!!!!!! спас меня от провала курсовой! просто огромнейшее спасибо!
|
Текстовая версия | 4.10.2024 13:22 |