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

17.05.2013, 22:07. **Показов** 2170. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

Заранее спа

сибо всем кто откликнется

Комментарий модератора

gor123459, на будущее - для каждой задачи создавайте отдельную тему. Таковы правила форума

@karlsonnakrishe · 17.05.2013, 22:39

10)

Pascal

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

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.

	17.05.2013, 22:39

Опции темы

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

Решение