Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
2 / 2 / 3
Регистрация: 14.05.2009
Сообщений: 136

Вывести общую сумму всех элементов входящих в данные наборы чисел (цикл while)

22.05.2009, 00:11. Показов 1534. Ответов 2
Метки нет (Все метки)

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

Вывести общую сумму всех элементов, входящих в данные наборы
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Вывести общую сумму всех элементов, входящих в ...

Вывести общую сумму всех элементов, входящих в заданные наборы
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Вывести общую сумму всех элементов, входящих в ...

Цикл: вычислить общую сумму всех билетов
Всем Привет!) пишу я курсовую но возникли проблемы с кодом кто сможет помочь? мне нужен цикл которйы будет выводить общую сумму всех...

2
 Аватар для MrAndrey_ka
79 / 79 / 20
Регистрация: 13.05.2009
Сообщений: 537
Записей в блоге: 1
22.05.2009, 00:35
Лучший ответ Сообщение было отмечено TORVALD как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const N=10;
var i,j:integer;
ar:array[0..9,0..9]of integer;
sum:longint;
begin
........... 
sum=0;
i:=0;j:=0;
while i<10 do
 begin
 sum:=sum+ar[i,j];
 inc(j);
 if j=10then
  begin
  j:=0;
  inc(i);
  end;
 end;
...........
end;
если я правильно понял задание, то где-то так!
0
2 / 2 / 3
Регистрация: 14.05.2009
Сообщений: 136
22.05.2009, 01:01  [ТС]
пасиб.. а то нам выдали таких заданий штук 5.. и написано так непонятно...( ужас просто пасибо еще раз )
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.05.2009, 01:01
Помогаю со студенческими работами здесь

Найти сумму и среднее арифметическое, общую сумму всех элементов массива
Помогите решить , очень надо Даны 2 одномерные масив состоящие их 9 элементов на интервале от -10 до 10 (первый массив) ОТ -5 до 5...

Цикл: вывести в порядке возрастания все числа в диапазоне от 0 до 100, найти сумму всех чисел, кратных 5
Решить задачу с использованием цикла. Вывести в порядке возрастания все числа в диапазоне от 0 до 100. . Найти сумму всех чисел, кратных 5.

Найти сумму всех чисел, входящих в строку
Помогите написать программу, которая высчитывает сумму всех чисел входящих в строку.

Найти общую сумму цифр всех квадратов чисел от 1 до 100
Даны квадраты натуральных чисел от 1 до 100 1; 4; 9; 16; 25; ... ; 9801; 10000 Надо найти общую сумму всех цифр этих чисел. Программа...

Подпрограммы: найти общую сумму положительных и общую сумму отрицательных элементов трех массивов
Для массивов Q(15),D(8) и Z(3) найти общую сумму положительных элементов и общую сумму отрицательных элементов. Помогите,пожалуйста


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru