Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
#1

Найти в каждой строке матрицы максимальный элемент и найти сумму таких элементов - Free Pascal

30.06.2009, 14:23. Просмотров 685. Ответов 4
Метки нет (Все метки)

Дана матрица а[5x10]. Её элементы добываются рандомно (с диапазоном от -5 до 5).
Найти в каждой строке макс элемент и найти сумму макс элементов.
вывести на экран матрицу и результаты.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2009, 14:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти в каждой строке матрицы максимальный элемент и найти сумму таких элементов (Free Pascal):

Найти максимальный элемент в каждой строке матрицы и поменять их местами - Free Pascal
Дана вещественная матрица 10х6 найти максимальный элемент в каждой строке матрицы и поменять их местами с элементами на побочной диагонали;...

Найти наименьший элемент в каждой строке матрицы и упорядочить строки по возрастанию этих элементов - Free Pascal
Дана целая прямоугольная матрица размерности NxM. Найти наименьший элемент в каждой строке и упорядочить строки по возрастанию этих...

В строке содержащей максимальный элемент матрицы A(6,8), подсчитать сумму положительных элементов - Free Pascal
В строке содержащей максимальный элемент матрицы A(6,8), подсчитать сумму положительных элементов

Найти максимальный элемент таблицы, встречающийся более одного раза в каждой строке - Free Pascal
Задание: Найти максимальный элемент таблицы, встречающийся более одного раза в каждой строке. То что я написал: function...

Найти сумму элементов массива и выдать на печать. Найти максимальный элемент в массиве и номер строки - Free Pascal
Дан массив n*m. Найти сумму элементов массива и выдать на печать. Найти максимальный элемент в массиве и номер строки , в которой он...

Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке? - Free Pascal
Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке? Правила форума п. 5.5: Запрещено...

4
mamedovvms
2918 / 839 / 93
Регистрация: 30.04.2009
Сообщений: 2,633
30.06.2009, 15:03 #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
uses crt;
var a:array[1..5,1..10] of integer;
      i,j,max,sum:integer;
begin
 clrscr;
 for i:=1 to 5 do
     begin
       for j:=1 to 10 do
         begin
          a[i,j]:=random(10)-5;
          write(a[i,j]);
         end;
       writeln;
     end;
sum:=0;
for i:=1 to 5 do
 begin
 max:=a[i,1];
 for j:=1 to 10 do
   if a[i,j]>max then max:=a[i,j];
  writeln('Max ',i,'-y stroki ');
  sum:=sum+max;
 end;
writeln('Summa ',sum);
readln;
end.
1
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
30.06.2009, 15:09  [ТС] #3
Спасибо ... а не мог бы ты ещё сделать так,чтобы эти макс.элементы выводились на экран и массив не был в кучу ?
0
mamedovvms
2918 / 839 / 93
Регистрация: 30.04.2009
Сообщений: 2,633
30.06.2009, 15:10 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
uses crt;
var a:array[1..5,1..10] of integer;
      i,j,max,sum:integer;
begin
 clrscr;
 for i:=1 to 5 do
     begin
       for j:=1 to 10 do
         begin
          a[i,j]:=random(10)-5;
          write(a[i,j]);
         end;
       writeln;
     end;
writeln;
writeln('Maksimalnie elementi ');
sum:=0;
for i:=1 to 5 do
 begin
 max:=a[i,1];
 for j:=1 to 10 do
   if a[i,j]>max then max:=a[i,j];
  writeln('Max ',i,'-y stroki ');
  sum:=sum+max;
 end;
writeln('Summa ',sum);
readln;
end.
1
Puporev
Модератор
53842 / 41475 / 14582
Регистрация: 18.05.2008
Сообщений: 97,198
30.06.2009, 15:12 #5
и массив не был в кучу ?
Pascal
1
2
3
begin
  a[i,j]:=random(10)-5;
   write(a[i,j]:4);
1
30.06.2009, 15:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2009, 15:12
Привет! Вот еще темы с ответами:

Найти максимальный элемент в каждой строке матрицы и заменить его числом 1. - Pascal
найти максимальный элемент в каждой строке матрицы и заменить его числом 1.Оформить в виде функции.

Дана матрица (nxm).Найти максимальный элемент в каждой строке этой матрицы - Pascal
вот

Найти максимальный элемент в каждой строке матрицы и поменять его с первым элементом этой же строки - Pascal
Заполнить двумерный массив N x N случайными числами из интервала и найти максимальный элемент в каждой строке и поменять его с...

Найти в каждой строке матрицы максимальный и минимальный элемент и поменять их с первым и последним элементом соответственно - Pascal
Товарищи нужна помощь в решении задания...заранее благодарю :bravo: Дана матрица B.Найти в каждой строке матрицы максимальный и...


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

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

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