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

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

22.12.2009, 22:05. Показов 99473. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Из невошедшего на форум (диалог с ИИ-гугла)
zorxor 29.07.2026
А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .
Был праздник вчера, а я и не знал.
kumehtar 28.07.2026
27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему
Hrethgir 27.07.2026
То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .
тв 16 бой ии
anaschu 27.07.2026
Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк
anaschu 27.07.2026
НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .
Очистка реквизитов и табличных частей документа при копировании (вариант 2)
Maks 26.07.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .
Доктрина интенционального знания - Доктрина для портала "Срез".
Hrethgir 25.07.2026
Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых
anaschu 25.07.2026
Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru