Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Эльман
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
#1

Разработать подпрограмму для нахождения максимального элемента в каждом столбце отдельно - Turbo Pascal

05.07.2012, 19:39. Просмотров 1234. Ответов 2
Метки нет (Все метки)

дана целочисленная матрица A размера 4*5. Разработать подпрограмму для нахождения максимального элемента в каждом столбце отдельно.
http://www.cyberforum.ru/turbo-pascal/thread261348.html
1
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.07.2012, 19:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Разработать подпрограмму для нахождения максимального элемента в каждом столбце отдельно (Turbo Pascal):

Массив: Для R(m,n), 1<(m,n)<10, найти в каждом столбце номер первого отрицательного элемента
Написать программу для ввода , обработки и печати матрицы Для R(m,n),...

Составить программу для нахождения минимального и максимального элемента
2. Составить программу для нахожденияминимального и максимального элемента...

Составить процедуру для нахождения индексов максимального элемента квадратной матрицы
помогите с задачей! Составить процедуру для нахождения индексов максимального...

Разработать подпрограмму-процедуру для вычисления номеров строк матрицы, в которых содержится ровно 2 отрицательных элемента
Разработать подпрограмму-процедуру для вычисления номеров строк матрицы, в...

Составить процедуру для нахождения максимального и минимального по модулю элемента одномерного массива A
Здравствуйте. Срочно нужна помощь по данной программе. Составить процедуру...

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,648
Записей в блоге: 1
05.07.2012, 21:27 #2
Лучший ответ Сообщение было отмечено Эльман как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Const n=4;m=5;
Type mas=array[1..n,1..m] of integer;
Var A:mas;
    i,j:integer;
Function Max(A:mas;j:byte):integer;
Var i,max1:integer;
Begin
    max1:=A[1,j];
    For i:=2 to n do
     if A[i,j]>max1 then max1:=A[i,j];
    Max:=max1;
End;
Begin
    For i:=1 to n do
     Begin
      For j:=1 to n do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    For j:=1 to n do
     writeln('Max в ',j,' строке: ',Max(A,j));
    readln;
End.
1
mr.xolms
52 / 52 / 25
Регистрация: 07.12.2011
Сообщений: 115
08.07.2012, 12:37 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const n=4;m=5;
     var A:array [1..n,1..m] of integer;
         MaxA:array[1..m] of integer;
         i,j,max:integer;
 
     procedure MaxInStol;
     begin
     for j:=1 to m do begin
     max:=a[1,j];
     for i:=2 to n do
         if a[i,j]>max then max:=a[i,j];
     maxA[j]:=max;
     end;
     end;
 
     begin
     writeln;
     writeln('введите элементы массива:');
     for i:=1 to n do
     for j:=1 to m do
     read(A[i,j]);
     MaxInStol;
     writeln('максимальные элементы столбцов:');
     for j:=1 to m do
     write(maxA[j],' ');
     readln;
     end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 12:37
Привет! Вот еще темы с решениями:

Нужно написать програму для нахождения максимального элемента массива и его точек вхождени
Нужно написать програму для нахождения максимального элемента массива и его...

Составить программу с использованием функции для нахождения максимального элемента главной диагонали квадратной матрицы
Составить программу с использованием функции для нахождения максимального...

Замена максимального элемента в столбце
Помогите пожалуйста. В каждом столбце матрицы A(n,m) нужно заменить...

Составить подпрограмму-функцию нахождения минимального значения элемента в одномерном массиве
привет, прошу помочь с программой, так как сам плохо понимаю массивы, а задание...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru