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

@Diamond_mad · Регистрация: 04.03.2009

Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо)
1. В заданном массиве K(F;F) найдите сумму элементов в каждой строке. Сформулируйте одномерный массив , содержащий полученные суммы, расположенные по возрастанию (убыванию)
2. В массиве Q(x;e) найти количество всех чисел по модулю, меньших заданного Т

@ZigmundFr · 08.03.2009, 02:41

Ответ на первый вопрос:

Pascal

Находим суммы и записываем в новый массив
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;

Только я не проверил работу!

@Puporev · 08.03.2009, 10:10

Вот поправил первую чтоб работала.

Pascal

{Находим суммы и записываем в новый массив}
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.

@schdub · 08.03.2009, 10:30

Вторая

Pascal

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.

@Diamond_mad · 10.03.2009, 23:30 **[ТС]**

Огромнейшее спасибо! Вы мне Очень помогли!

@pavel42 · 23.04.2009, 20:19

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

@Puporev · 23.04.2009, 20:23

Находишь минимальный и строку где он находится.

Pascal

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];

@pavel42 · 23.04.2009, 20:26

это же надо вставить перед тем как считаю сумму ???

@Puporev · 23.04.2009, 20:38

Что вставить? Ты здесь как раз и считаешь сумму в строке.

@pavel42 · 23.04.2009, 20:59

мне даже так собрать сложно (
пишет 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.

@Puporev · 23.04.2009, 21:11

Я Вам просто поражаюсь, чем Вы думаете. Не создав матрицу, не введя никих значений в программу, Вы ищете какой-то минимум, какую-то сумму. Вообще полное безмыслие.

Pascal

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.

@pavel42 · 24.04.2009, 11:26

спасибо )) я просто только на днях начал изучать все это ))

Добавлено через 14 часов 10 минут 29 секунд
скажите еще пл3, если эту прогу делать в процедурном, то сколько процедур будет ???

@Puporev · 24.04.2009, 11:48

сколько процедур будет

Думаю 3х хватит.
1. Процедура ввод матрицы.
2. Процедура поиск строки с минимумом.
3. Процедура сумма в строке с минимумом.

Добавлено через 3 минуты 41 секунду

Pascal

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);

@pavel42 192 / 0 / 1 Регистрация: 23.04.2009 Сообщений: 20
	24.04.2009, 11:26	12
	спасибо )) я просто только на днях начал изучать все это )) Добавлено через 14 часов 10 минут 29 секунд скажите еще пл3, если эту прогу делать в процедурном, то сколько процедур будет ??? 0

@Diamond_mad 0 / 0 / 0 Регистрация: 04.03.2009 Сообщений: 23
		1
	Найти сумму элементов в каждой строке двумерного массива 06.03.2009, 11:33. Показов 51590. Ответов 12 Метки нет (Все метки) Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо) 1. В заданном массиве K(F;F) найдите сумму элементов в каждой строке. Сформулируйте одномерный массив , содержащий полученные суммы, расположенные по возрастанию (убыванию) 2. В массиве Q(x;e) найти количество всех чисел по модулю, меньших заданного Т 0

@Diamond_mad 0 / 0 / 0 Регистрация: 04.03.2009 Сообщений: 23
	10.03.2009, 23:30 [ТС]	5
	Огромнейшее спасибо! Вы мне Очень помогли! 0

@pavel42 192 / 0 / 1 Регистрация: 23.04.2009 Сообщений: 20
	23.04.2009, 20:19	6
	помогите пл3 решить подобную первой задаче. Найти сумму элементов строки, содержащей минимальный элемент. 0

@pavel42 192 / 0 / 1 Регистрация: 23.04.2009 Сообщений: 20
	23.04.2009, 20:26	8
	это же надо вставить перед тем как считаю сумму ??? 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	23.04.2009, 20:38	9
	Что вставить? Ты здесь как раз и считаешь сумму в строке. 0