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

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

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

Author24 — интернет-сервис помощи студентам
Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо)
1. В заданном массиве K(F;F) найдите сумму элементов в каждой строке. Сформулируйте одномерный массив , содержащий полученные суммы, расположенные по возрастанию (убыванию)
2. В массиве Q(x;e) найти количество всех чисел по модулю, меньших заданного Т
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
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:=12; a:=0.2; a:=0.3; a:=5.1; a:=5.1;...

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

12
 Аватар для ZigmundFr
7 / 7 / 4
Регистрация: 17.01.2009
Сообщений: 32
08.03.2009, 02:41
Ответ на первый вопрос:

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
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
08.03.2009, 10: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
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
Эксперт С++
 Аватар для schdub
3073 / 1411 / 425
Регистрация: 19.01.2009
Сообщений: 3,890
08.03.2009, 10:30
Вторая
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  [ТС]
Огромнейшее спасибо! Вы мне Очень помогли!
0
192 / 0 / 1
Регистрация: 23.04.2009
Сообщений: 20
23.04.2009, 20:19
помогите пл3 решить подобную первой задаче.
Найти сумму элементов строки, содержащей минимальный элемент.
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
23.04.2009, 20:23
Находишь минимальный и строку где он находится.
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
это же надо вставить перед тем как считаю сумму ???
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
23.04.2009, 20:38
Что вставить? Ты здесь как раз и считаешь сумму в строке.
0
192 / 0 / 1
Регистрация: 23.04.2009
Сообщений: 20
23.04.2009, 20:59
мне даже так собрать сложно (
пишет summ0
Code
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
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
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
23.04.2009, 21: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
спасибо )) я просто только на днях начал изучать все это ))

Добавлено через 14 часов 10 минут 29 секунд
скажите еще пл3, если эту прогу делать в процедурном, то сколько процедур будет ???
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
24.04.2009, 11:48
сколько процедур будет
Думаю 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.04.2009, 11:48
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Динамические массивы в C++ - создание и использование
NullReferenced 27.04.2025
Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .
Асинхронный JavaScript: Промисы, Async/Await и Fetch API
Reangularity 27.04.2025
Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .
Management on GitLab and repository management in Visual Studio code
jigi33 27.04.2025
- repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)
Kanban или Scrum - что выбрать?
EggHead 27.04.2025
Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .
Кастомные Middleware на C# в ASP.NET Core
UnmanagedCoder 27.04.2025
Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint
run.dev 26.04.2025
JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .
Паттерны в Python: Singleton, Factory и Observer
py-thonny 26.04.2025
Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .
Исключения в C#: Stack Overflow, Access Violation и Out of memory
stackOverflow 26.04.2025
Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana
stackOverflow 25.04.2025
Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .
Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик.
Hrethgir 25.04.2025
Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru