Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Pacan1
50 / 50 / 39
Регистрация: 06.12.2011
Сообщений: 233
#1

Как найти сумму каждой строки и столбца двухмерного массива?

31.03.2012, 16:05. Просмотров 422. Ответов 3
Метки нет (Все метки)

Мне бы только алгоритм. Заранее благодарю

Добавлено через 4 часа 15 минут
в сумме каждой строке разобрался. Теперь не получается найти сумму каждого столбца... Помогите кто может
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 16:05
Ответы с готовыми решениями:

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

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

Найти среднее арифметическое для каждой строки двухмерного массива
Найти среднее арифметическое для каждой строки двухмерного массива. Ну это совсем овощное))

Найти среднее арифметическое элементов для каждой строки двухмерного массива.
1) Найти среднее арифметическое элементов для каждой строки двухмерного массива. 2) Упорядочить...

Для каждой строки и столбца матрицы найти сумму элементов
Дана матрица размера MxN. Для каждой строки и столбца матрицы найти сумму элементов.

3
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
31.03.2012, 16:16 #2
Цитата Сообщение от Pacan1 Посмотреть сообщение
найти сумму каждого столбца
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses crt;
Var A:array[1..5,1..5] of integer; i,j:integer; sum:array[1..5] of integer;
Begin
ClrScr; Randomize;
For i:=1 to 5 do
 Begin
  For j:=1 to 5 do
   Begin
    A[i,j]:=random(51)-25;
    Write(A[i,j]:4);
    sum[j]:=sum[j]+A[i,j];{используем массив для расчета сумм}
   End;
  Writeln;
 End;
For i:=1 to 5 do Writeln(sum[i]);
Readln;
End.
1
Pacan1
50 / 50 / 39
Регистрация: 06.12.2011
Сообщений: 233
31.03.2012, 16:18  [ТС] #3
а без второго массива нельзя?
0
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
31.03.2012, 16:33 #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
Uses crt;
Var A:array[1..5,1..5] of integer; i,j,sum:integer;
Begin
ClrScr; Randomize;
For i:=1 to 5 do
 Begin
  For j:=1 to 5 do
   Begin
    A[i,j]:=random(51)-25;
    Write(A[i,j]:4);
   End;
  Writeln;
 End;
For i:=1 to 5 do
 Begin
  For j:=1 to 5 do
   Begin
    sum:=sum+A[j,i];
   End;
  Writeln(sum); sum:=0;
 End;
Readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 16:33

Заменить все элементы k-й строки и s-го столбца двухмерного массива на противоположные по знаку
Заменить все элементы k-й строки и s-го столбца двухмерного массива на противоположные по знаку...

Найти сумму элементов каждой строки и сумму элементов каждого столбца
Найти сумму элементов каждой строки и сумму элементов каждого столбца(паскаль). Еще нужно...

Найти сумму элементов каждой строки и произведение элементов каждого столбца матрицы
Кто может в Паскале не силён, если можно коментарии что бы разобраться что к чему. Буду очень...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru