|
   |
| Модератор форума: No_MaTTeR, Dimitro, LightInDarkness |
| Форум Полезное Флудилка Pascal | Масивы | Прямоугольные таблицы (Нужно решить задачу) |
| Pascal | Масивы | Прямоугольные таблицы |
Здравствуйте, в общем настало время зачеток а у меня ещё не сданы все лабы... нужна помощь в написании программы на pascal (масивы).Нужно сделать 1 задачу из предложенных (2ух).
Прямоугольные таблицы 1. Original Цитата Дано дійсну квадратну матрицю порядку n. Отримати суму максимальних елементів рядків даної матриці 1. Rus Цитата Дано действительную квадратную матрицу порядка n. Получить сумму максимальных элементов строк данной матрицы 2. Original Цитата Дано дійсну квадратну матрицю порядку n. Отримати суму мінімальних елементів стовпців даної матриці 2. Rus Цитата Дано действительную квадратную матрицу порядка n. Получить сумму минимальных элементов столбцов данной матрицы Очень нужно.
_Ice[Baby]_ - старый профиль
Сообщение # 1 написано 09.12.2013 в 20:30
|
Код var A: array [1..10, 1..10] of integer; i, j, n : integer; sum, max : integer; begin Randomize; Repeat Write('Размерность матрицы: '); Readln(n); until n in [1..10]; for i := 1 to n do begin for j := 1 to n do begin A[i, j] := random(30); Write(A[i, j]:5); end; Writeln; end; sum := 0; for i := 1 to n do begin max := a[i, 1]; for j := 1 to n do if a[i,j] > max then max := a[i, j]; sum := sum + max; end; Writeln('Сумма макс. элементов строк: ', sum); end. Нашел на просторах инета. Условие: Дано квадратную матрицу порядка N. Получить сумму максимальных элементов строчек данной матрицы. |
f0t1k, http://www.cyberforum.ru/pascalabc/thread676108.html
Ну если восе ленив Код var A: array [1..10, 1..10] of integer; i, j, n : integer; sum, max : integer; begin Randomize; Repeat Write('Размерность матрицы: '); Readln(n); until n in [1..10]; for i := 1 to n do begin for j := 1 to n do begin A[i, j] := random(30); Write(A[i, j]:5); end; Writeln; end; sum := 0; for i := 1 to n do begin max := a[i, 1]; for j := 1 to n do if a[i,j] > max then max := a[i, j]; sum := sum + max; end; Writeln('Сумма макс. элементов строк: ', sum); end.  Регистрируйся и умножай свои деньги . За вопросами в лс . Только для рефералов секрет и возможно сам скрипт. Html , css , php ,mysql , zend freamwork ищу работу . |
Цитата f0t1k (  ) (масивы) Цитата f0t1k ( ) квадратную матрицу опредились Регистрируйся и умножай свои деньги . За вопросами в лс . Только для рефералов секрет и возможно сам скрипт. Html , css , php ,mysql , zend freamwork ищу работу .
Сообщение # 5 написано 10.12.2013 в 00:05
|
Цитата Csharp ( )опредились По идеи если вы нечего не понимаете в этом, вам не стояло было сюда писать. И для заметки, масивы сама следовательно которой нужно делать задачу, квадратная матрица это условие задачи. Добавлено (10.12.2013, 10:26)
_Ice[Baby]_ - старый профиль
Сообщение # 6 написано 10.12.2013 в 10:26
|
| |||
| |||