gor123459
1

Найти сумму наибольших значений элементов строк матрицы

17.05.2013, 22:07. Показов 2172. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
10)Дана целочисленная матрица размером nХm. Написать программу, позволяющую находить сумму наибольших значений элементов ее строк.
8)Даны натуральное n, m, целые числа a1, … , an, b1, … , bm. Найти сумму тех элементов массива a1, … , an, индексы которых совпадают со значением элементов массива b1, … , bm.
Если с блок-схемами тоо вааще круто)))

Заранее спасибо всем кто откликнется

 Комментарий модератора 
gor123459, на будущее - для каждой задачи создавайте отдельную тему. Таковы правила форума
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2013, 22:07
Ответы с готовыми решениями:

Найти сумму наибольших значений элементов строк матрицы
Добрий день товарищи. Помогите решить задачи. 1. Задана действительная матрица размера 3*4. Найти...

Процедуры и Функции. Найти сумму наибольших значений элементов строк матрицы
Ребятки, помогите пожалуйста, нужно Составить подпрограммы для решения следующих задач (именно...

Найти сумму наибольших значений строк матрицы
Составить подпрограммы для решения следующих задач: 1. Даны натуральные M, N и матрица...

Найти сумму наибольших значений элементов строк массива
Дан двумерный числовой массив A(n,m).Найти сумму наибольших значений элементов его строк.

1
50 / 50 / 41
Регистрация: 20.08.2012
Сообщений: 123
17.05.2013, 22:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

10)
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
uses crt;
const
 n = 10;
 m = 15;
 
var
 i,j: integer;
 max, sum: integer;
 a: array [1..n,1..m] of integer;
 
begin
 clrscr;
 sum := 0;
 randomize;
 for i := 1 to n do
 begin
  for j := 1 to m do
  begin
   a[i,j] := random(101);
   write(a[i,j]:4);
  end;
  writeln;
 end;
 
 for i := 1 to n do
 begin
 max := -100;
  for j := 1 to m do
   if a[i,j] > max then
    max := a[i,j];
  sum := sum + max;
 end;
 writeln;
 writeln(sum);
 readln;
end.
Добавлено через 17 минут
8)
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
uses crt;
const
 n = 10;
 m = 15;
 
var
 i,j: integer;
 sum: integer;
 flag: boolean;
 a: array [1..n] of integer;
 b: array [1..m] of integer;
 
begin
 clrscr;
 randomize;
 sum := 0;
 write('A: ');
 for i := 1 to n do
 begin
  a[i] := random(30);
  write(a[i]:3);
 end;
 writeln;
 write('B: ');
 for i := 1 to m do
 begin
  b[i] := random(20);
  write(b[i]:3);
 end;
 for i := 1 to n do
 begin
  flag := false;
  for j := 1 to m do
   if b[j] = i then
   begin
    flag := true;
    break;
   end;
  if flag then sum := sum + a[i];
 end;
 writeln;
 writeln(sum);
 readln;
end.
1
17.05.2013, 22:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2013, 22:39
Помогаю со студенческими работами здесь

Найти сумму наименьших элементов нечетных строк и наибольших элементов четных строк матрицы
Добрый день! Дана матрица размером N. Найти сумму наименьших элементов ее нечетных строк и...

Найти сумму наибольших элементов строк матрицы
Очень требуется помощь по написанию В Турбо Паскале обоих кодов этих задач, желательно в течении 3...

Найти сумму значений элементов строк матрицы
Дан массив действительных чисел P. Найти сумму значений элементов ее строк. заранее благодарен.

Упорядочить строки матрицы по убыванию значений наибольших элементов строк
Дана действительная марица размера n*m, упорядочить (переставить) строки матрицы по убыванию...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru