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

Массив, найти сумму

22.05.2013, 08:44. Просмотров 847. Ответов 2
Метки нет (Все метки)

Помогите решить.
Дана матрица А размером m*n . Найти сумму минимальных и
максимальных элементов каждой строки матрицы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 08:44
Ответы с готовыми решениями:

Найти сумму элементов нечётных строк массива. Вывести сам массив и сумму
Задать элементы массива с помощью генератора случайных чисел в интервале от -5 до 10.

Первый массив Е(25) [-7;7] второй массив F(33) [-4;3].Найти сумму пожительных элементов
первый массив Е(25) второй массив F(33) .Найти сумму пожительных элементов!! помогите срочно...

Двумерный массив. Ввести двумерный массив, найти сумму элементов каждого столбца
Ввести двумерный массив, найти сумму элементов каждого столбца.

Одномерный массив найти сумму
Помогите решить задачу Дан одномерный массив требуется найти сумму четных положительных элементов...

массив. найти сумму до первого нуля
здавствуйте. помогите пожалуйста с решением задачи.. в массиве есть хотя бы один 0. Посчитать...

2
Bagdosy
1 / 1 / 3
Регистрация: 02.04.2013
Сообщений: 9
22.05.2013, 14:02 2
Лучший ответ Сообщение было отмечено 6y6eH как решение

Решение

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
program MinElem;
uses crt;
const nmax=10;
      mmax=10; 
type vec=array [1..mmax] of integer;
       matr=array[1..nmax] of vec;
procedure InputArr (var a:matr; n,m:integer);
var i,j:integer;
begin
writeln ('Введите элементы матрицы');
for i:=1 to n do
    for j:=1 to m do
            begin
                write ('a[',i,',',j,']= ');
                        readln (a[i,j]);
                end;
end;
function Minimal (v:vec; m:integer):integer;
var i,MinElem:integer;
begin
MinElem:=v[1];
for i:=1 to m do
        if v[i]<MinElem then
                MinElem:=v[i];
Minimal:=MinElem;
end;
writeln('Минимальный элемент в строке ',i,'=',Minimal(TArr[i],m));
end.
Добавлено через 3 минуты
только без мах ел. строки
0
6y6eH
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 24
22.05.2013, 17:36  [ТС] 3
Это точно в турбо паскале написано? у меня не работает, и не понятно для меня.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 17:36

Одномерный массив. Найти сумму модулей.
Вычислить сумму модулей элементов массива, расположенных до мах. Помогите пожалуйста, заранее...

Дан одномерный массив А из 22 элементов. Найти сумму
помогите пожалуйста. Дан одномерный массив А из 22 элементов. Найти сумму...

двумерный массив.Найти сумму элементов матрицы А
прошу решить наиболее простым способом! заранее спасибо


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

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

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