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

Массив, найти сумму - Turbo Pascal

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

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

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

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

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

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

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

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 / 1
Регистрация: 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 элементов. Найти сумму...

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

Массив: найти сумму положительных элементов массива
найти сумму положительных элементов массива с(16) уж сколько раз пробовал,...

Массив. Найти сумму всех четных чисел
найти сумму всех четных чисел


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

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

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