Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/47: Рейтинг темы: голосов - 47, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 15.01.2012
Сообщений: 8

Двумерный массив. Найти сумму всех элементов.

04.04.2012, 18:42. Показов 10013. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан двумерный массив,найти сумму всех эл-ов.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.04.2012, 18:42
Ответы с готовыми решениями:

Дан двумерный массив.Подсчитать сумму и произведение всех положительных его элементов
1)Дан двумерный массив.Подсчитать сумму и произведение всех положительных его элементов. 2)Подсчитать произведение всех введенных с...

Дан двумерный массив. Найти номера всех максимальных элементов. в Паскале
Дан двумерный массив. Найти номера всех максимальных элементов. с модулями(можно модули просто отдельно напис

Дан двумерный массив .Найти сумму элементов массива
Дан двумерный массив А. Найти сумму элементов массива.

1
Pascal +
 Аватар для UserABC
137 / 136 / 127
Регистрация: 16.03.2011
Сообщений: 461
04.04.2012, 22:07
Лучший ответ Сообщение было отмечено kykan как решение

Решение

Цитата Сообщение от kykan Посмотреть сообщение
Дан двумерный массив,найти сумму всех эл-ов.
Вот код, размеры массива можете менять.
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
const
    m = 5;
    n = 4;
 
var
    a: array[1..m,1..n] of byte;
    s: array[1..n] of byte;
    i,j, sum: byte;
 
begin
    randomize;
 
    for i := 1 to m do begin
        for j := 1 to n do begin
            a[i,j] := random(10);
            write (a[i,j]:3)
        end;
        writeln
    end;
 
    writeln ('------------');
 
    for j := 1 to n do begin
        for i := 1 to m do begin
            s[j] := s[j] + a[i,j];
            sum := sum + a[i,j]
        end;
        write (s[j]:3)
    end;
 
    write (' | sum = ', sum);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.04.2012, 22:07
Помогаю со студенческими работами здесь

Задан двумерный массив. Найти среднее арифметическое всех положительных элементов массива
Задан двумерный массив. Найти среднее арифметическое всех положительных элементов массива. Заранее спасибо

Двумерный массив - найти сумму элементов, расположенных на одной из линий
создать двумерный массив случайных чисел А . Найти сумму элементов расположенных на одной из линий параллельных главной диагонали.

Ввести двумерный массив. Найти и напечатать сумму элементов, кратных 3
Ввести двумерный массив целых чисел размером 3х4. Найти и напечатать сумму элементов, кратных 3. Заранее спасибо

Массив: Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.
Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L...

Дан двумерный массив A(n ×m) . Найти сумму отрицательных элементов в 1-ом столбце матрицы
Дан двумерный массив A(n ×m) . Найти сумму отрицательных элементов в 1-ом столбце матрицы. Добавлено через 2 часа 25 минут ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru