Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.63/496: Рейтинг темы: голосов - 496, средняя оценка - 4.63
2 / 2 / 0
Регистрация: 22.12.2009
Сообщений: 8

Найти сумму элементов массива

22.12.2009, 22:05. Показов 99648. Ответов 24
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Народ помогите пожалуйста решить. срочно.



1)Дан одномерный массив. определить:
а) сумму всех эллементов массива
б)произведение отр. элементов
в) сумму квадратов всех положительных элементов

2) Дан массив одномерный. Найти среднеарифметическое положительных и отрицательных элементов

3) Дан 2умерный массив. Заменить значения всех элементов четвертой строки массива на число 4.
4) к элементам 4-ого столбца двумерного массива рахмеронстью 6*6 прибавить элементы 2-го столбца
5) Дан двумерный масив. определить сумму элементов четвертого столбца меньших 100
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.12.2009, 22:05
Ответы с готовыми решениями:

Найти сумму элементов массива в заштрихованной области двумерного массива
Найти сумму элементов массива в заштрихованной области двумерного массива.

Найти сумму элементов массива с четными индексами, и разность элементов с нечетными
ДАН МАССИВ A НАЙТИ СУММУ ЭЛЕМЕНТОВ С ЧЕТНЫМ НОМЕРОМ И РАЗНОСТЬ С НЕ ЧЕТНЫМ. ВОЗНИКЛА ПРОБЛЕМА С НАХОЖДЕНИЕМ РАЗНОСТИ. ЗАРАНЕЕ БЛАГОДАРЕН...

Найти сумму всех элементов массива, кроме элементов с номерами от k до l включительно
если кто сможет решить,буду очень-очень благодарна. вот задачи: 1)ДАН МАССИВ РАЗМЕРА N И ЦЕЛЫЕ ЧИСЛА K И L(1<K<=L<=N).НАЙТИ...

24
2 / 2 / 0
Регистрация: 22.12.2009
Сообщений: 8
22.12.2009, 23:38  [ТС]
Студворк — интернет-сервис помощи студентам
Все.... Огромнейшее вам еще раз спасибо. блин знал бы вас живую в ноги бы при встрече кланялся, вы просто не знаете от чего спасли. )))) Спасибо еще раз.
1
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.12.2009, 23:42
Лучший ответ Сообщение было отмечено как решение

Решение

MEGAETX, Да не зачто....особенно скажи спасибо нашим милым дамам - "Умницам"
4
 Аватар для lera8
636 / 219 / 64
Регистрация: 03.11.2009
Сообщений: 488
22.12.2009, 23:49
MEGAETX, не забудьте также и
Давид, он тоже старался
2
2 / 2 / 0
Регистрация: 22.12.2009
Сообщений: 8
22.12.2009, 23:56  [ТС]
я ни кого не забуду из тех кто мне помогал
0
0 / 0 / 0
Регистрация: 12.04.2019
Сообщений: 2
12.04.2019, 15:06
A)
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a:array[1..1000]of integer;
i,N,sum:integer;
Begin
Readln(N);
For i:=1 to N do
Read(a[i]);
Sum:=0;
For I:=1 to N do
Sum:=sum+a[i]
Write(sum);
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
12.04.2019, 15:06

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

Найти сумму всех элементов массива, и количество элементов, значение которых превышает 6
ввести с клавитуры из N элементов.Найдите сумму всех элементов и количество элементов значение которых превышают 6.

Двумерный массив. Среди элементов нечетных столбцов массива найти сумму отрицательных элементов
Дан массив Х (M,N). Среди элементов нечетных столбцов массива найти сумму отрицательных элементов.

Найти сумму первых пяти элементов массива и вывести положительные числа массива,который отличаются на единицу
Дан одномерный массив.Числа вводятся с клавиатуры.Найти сумму первых пяти элементов массива и вывести положительные числа массива,который...

Найти сумму нечетных элементов массива из 20 элементов
помогите дописать код var a: array of integer; i, sum:integer; begin For i:=1 to 20 do if i mod 2 = 1 then sum := sum+a; ...


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

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru