0 / 0 / 0
Регистрация: 04.03.2009
Сообщений: 23
1

Найти сумму элементов в каждой строке двумерного массива

06.03.2009, 11:33. Показов 51590. Ответов 12
Метки нет (Все метки)

Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо)
1. В заданном массиве K(F;F) найдите сумму элементов в каждой строке. Сформулируйте одномерный массив , содержащий полученные суммы, расположенные по возрастанию (убыванию)
2. В массиве Q(x;e) найти количество всех чисел по модулю, меньших заданного Т
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2009, 11:33
Ответы с готовыми решениями:

Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел
Найти сумму элементов в каждой строке двумерного массива состоящего из целых чисел размер m на n.

Найти нули в каждой строке двумерного массива и заменить их на сумму элементов всей строки
const n=5; var a:array of real; i,j,k:integer; sum:real; begin a:=0.1; a:=0; a:=4; a:=4;...

Найти сумму элементов каждой строки двумерного массива
Дан двумерный массив A(4,3). Найти сумму элементов каждой строки этого массива.

Найти количество положительных элементов в каждой строке двумерного целочисленного массива
Будьте любезны помогите,пожалуйста решить две задачи. Заранее огромное спасибо 1.Найти...

12
7 / 7 / 4
Регистрация: 17.01.2009
Сообщений: 32
08.03.2009, 02:41 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
27
28
29
30
31
32
33
Находим суммы и записываем в новый массив
var
   i,j:integer;
   A:array[1..n,1..m] of integer; //исходный массив
   B:array[1..n]of integer;//массив для предварительного результата
   С:array[1..n] of integer; массив для конечного результата
   Suma:integer;
   Min,n:integer;
for i:=1 to n do
begin
   Suma:=0;
   for j:=1 to m do
   begin
      Suma:=Suma+A[i,j];
   end;
end;
 Для создания необходимого результата (сортировка по возростанию)
for j:=1 to n do
begin
   for i:=1 to n do
   begin
      if B[i]<>0 then
      begin
         if B[i]<Min then 
         begin 
            Min:=B[i];
            n:=i; 
         end;
      end; 
   end;
   B[n]:=0;
   C[j]:=Min;
end;
Только я не проверил работу!
1
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.03.2009, 10:10 3
Вот поправил первую чтоб работала.
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;
var
   n,m,i,j,sum,x:integer;
   a:array[1..50,1..50] of integer; {исходный массив}
   b:array[1..50]of integer;{массив для предварительного результата}
begin
clrscr;
randomize;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln('Matrica:');{создание матрицы}
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
for i:=1 to n do
  begin
    Sum:=0;
    for j:=1 to m do
    Sum:=Sum+a[i,j]; {считаем суммы в строках}
    b[i]:=sum;   {создаем из них массив}
  end;
{Для создания необходимого результата (сортировка по возрастанию)}
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
   begin
     x:=b[i];
     b[i]:=b[j];
     b[j]:=x;
   end;
writeln('Otsortirovannyj massiv summ');
for i:=1 to n do
write(b[i],' ');
readln
end.
1
Эксперт С++
3068 / 1406 / 425
Регистрация: 19.01.2009
Сообщений: 3,841
08.03.2009, 10:30 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
29
30
31
32
33
34
35
uses crt;
 
const MAX = 10;
 
var  q          : array[1..max, 1..max] of Integer;
     c, x, e, T : integer;
     row, col   : integer;
 
begin
  ClrScr;
  
  Write('Введите количество строк    = '); ReadLn(x); if x>max then x := max;
  Write('Введите количество столбцов = '); ReadLn(e); if e>max then e := max;
  Write('Введите число Т = '); ReadLn(T);
 
  T:=abs(T);
 
  {ввод данных}
  for row:= 1 to x do
    for col:= 1 to e do
    begin
      Write('Введите Q[',row:2,';',col:2,'] = ');
      ReadLn(q[row, col]);
    end;
    
  {проверка условия}
  c:=0;
  for row:= 1 to x do
    for col:= 1 to e do
      if abs(q[row, col])<T then
        Inc(c);
 
  WriteLn('В массиве Q(',x,';',e,') количество всех чисел по модулю, меньших ',T,' = ',c);
  ReadKey;   
end.
0
0 / 0 / 0
Регистрация: 04.03.2009
Сообщений: 23
10.03.2009, 23:30  [ТС] 5
Огромнейшее спасибо! Вы мне Очень помогли!
0
192 / 0 / 1
Регистрация: 23.04.2009
Сообщений: 20
23.04.2009, 20:19 6
помогите пл3 решить подобную первой задаче.
Найти сумму элементов строки, содержащей минимальный элемент.
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.04.2009, 20:23 7
Находишь минимальный и строку где он находится.
Pascal
1
2
3
4
5
6
7
8
min:=a[1,1];imin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
   begin
     min:=a[i,j];
     imin:=i;
   end;
Сейчас в этой строке считаешь сумму.
Pascal
1
2
3
s:=0;
for j:=1 to m do
s:=s+a[imin,j];
0
192 / 0 / 1
Регистрация: 23.04.2009
Сообщений: 20
23.04.2009, 20:26 8
это же надо вставить перед тем как считаю сумму ???
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.04.2009, 20:38 9
Что вставить? Ты здесь как раз и считаешь сумму в строке.
0
192 / 0 / 1
Регистрация: 23.04.2009
Сообщений: 20
23.04.2009, 20:59 10
мне даже так собрать сложно (
пишет summ0
Код
uses crt;
var
 s,min,imin,n,m,i,j,sum,x:integer;
   a:array[1..50,1..50] of integer;
   begin
   clrscr;
   randomize;
   write('koli4estvo strok n=');
   readln(n);
   write('koli4estvo stolbov m=');
   readln(m);
   min:=a[1,1]; imin:=1;
   for i:=1 to n do
   for j:=1 to n do
   if a[i,j]<min then
   begin
   min:=a[i,j];
   imin:=i;
   end;
   begin
   s:=0;
   for j:=1 to m do
   s:=s+a[imin,j];
   writeln('summa',s);
   readln(s);
   end;
end.
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.04.2009, 21:11 11
Я Вам просто поражаюсь, чем Вы думаете. Не создав матрицу, не введя никих значений в программу, Вы ищете какой-то минимум, какую-то сумму. Вообще полное безмыслие.
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;
var
s,min,imin,n,m,i,j,sum,x:integer;
a:array[1..50,1..50] of integer;
begin
clrscr;
randomize;
write('koli4estvo strok n=');
readln(n);
write('koli4estvo stolbov m=');
readln(m);
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
    end;
  writeln;
 end;
min:=a[1,1]; imin:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then
   begin
     min:=a[i,j];
     imin:=i;
   end;
writeln('Min=',min,'  stroka=',imin);
s:=0;
for j:=1 to m do
s:=s+a[imin,j];
writeln('summa',s);
readln
end.
1
192 / 0 / 1
Регистрация: 23.04.2009
Сообщений: 20
24.04.2009, 11:26 12
спасибо )) я просто только на днях начал изучать все это ))

Добавлено через 14 часов 10 минут 29 секунд
скажите еще пл3, если эту прогу делать в процедурном, то сколько процедур будет ???
0
Почетный модератор
64276 / 47575 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
24.04.2009, 11:48 13
сколько процедур будет
Думаю 3х хватит.
1. Процедура ввод матрицы.
2. Процедура поиск строки с минимумом.
3. Процедура сумма в строке с минимумом.

Добавлено через 3 минуты 41 секунду
Pascal
1
2
3
4
type matr=array[1..50,1..50] of integer;
procedure Vvod(n,m:byte;var mt:matr);
procedure MinStr(n,m:byte;mt:matr; var imin:byte);
procedure Summ(imin,m:byte;mt:matr; var sum:integer);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2009, 11:48
Помогаю со студенческими работами здесь

Найти произведение элементов в каждой строке двумерного массива и написать их в одномерную массив
найти произведение элементов в каждой строке двумерного массива А (6,5) и написать их в одномерную...

Найти количество отрицательных элементов в каждой строке двумерного массива, состоящего из 7 строк и 5 столбцов.
Найти количество отрицательных элементов в каждой строке двумерного массива, состоящего из 7 строк...

Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел
Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел. Размер m x n....

В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов
Добрый день. Помогите исправить код в VB 6.0, задача такая: В каждой строке двумерного массива...


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

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

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