Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 24
1

Функция Сумма элементов той строки в которой находиться максимальный элемент

09.12.2011, 12:38. Показов 867. Ответов 1
Метки нет (Все метки)

нужно написать функцию которая будеть суммировать элементы той строки в котрой находиться максисальный элемент матрицы в интервале от -1.0 до 1.0 в паскале
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2011, 12:38
Ответы с готовыми решениями:

Найти сумму элементов той строки, в которой расположен максимальный элемент матрицы
Дана целочисленная квадратная матрица порядка n. Найти сумму элементов той строки, в которой...

Найти сумму элементов той строки матрицы, в которой расположен максимальный элемент
1 задача)Найти сумму элементов той строки массива a(3x3), в которой расположен максимальный элемент...

Для той из матриц, в которой больше максимальный элемент, найти максимальный элемент в каждой строке
Даны две матрицы разного размера. Для той из матриц, в которой больше максимальный элемент, найти...

Заменить максимальный элемент в матрице, средним арифметическим элементов строки, в которой находится максимальный элемент
Уважаемые форумчане! Помогите с задачкой :) (С++) В матрице D максимальный элемент заменить...

__________________
1
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.12.2011, 21:54 2
Лучший ответ Сообщение было отмечено RIONOMARU как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
type mat=array [1..100,1..100] of real;
var i,j,n,m: integer;
    a: mat;
 
procedure GenM(n,m: integer; var a: mat);
begin
randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=(random(3)-1)/(random(9)+1);
        write(a[i,j]:5:1);
        end;
    writeln;
    end;
end;
 
function SumS(n,m: integer; a: mat):real;
var imax: integer;
    max,sum: real;
begin
imax:=1;
max:=a[1,1];
for i:=1 to n do
    for j:=1 to m do
        if a[i,j]>max then
        begin
        max:=a[i,j];
        imax:=i;
        end;
sum:=0;
for j:=1 to m do
    sum:=sum+a[imax,j];
SumS:=sum;
end;
 
begin
writeln('n,m=');
readln(n,m);
GenM(n,m,a);
writeln('Сумма эл-тов строки с макс. эл-том = ',SumS(n,m,a):5:1);
readkey
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2011, 21:54

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Сформировать одномерный массив из элементов той строки, сумма элементов которой минимальна
Задание: Дана матрица {Rij }, i и j - целые, не больше 15 и 18 соответственно. Сформировать...

Найти номер той строки в массиве сумма элементов которой наибольшая
Помогите решить пожалуйста. Дан массив X(N,M). Найти номер той строки в массиве сумма элементов...

Отсортировать по возрастанию элементы той строки матрицы, сумма элементов которой максимальна
Вот само задание: Разработать приложение, выполняющее следующие функции. Ввести с клавиатуры...

Найти сумму элементов той строки, в которой расположен минимальный элемент
Сумму элементов той строки, в которой расположен минимальный элемент. 5,2,3,4,9 2,7,1,9,4...


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

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

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