Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 01.03.2015
Сообщений: 2

В одномерном массиве из 10 чисел есть положительные и отрицательные числа. Вычислить сумму положительных чисел.

02.04.2010, 12:40. Показов 2746. Ответов 2
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Помогите плз.
0
Лучшие ответы (1)
Сообщение: #636972
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 02.04.2010, 12:40
Ответы с готовыми решениями:

В одномерном массиве из 10 чисел положительные элементы уменьшить вдвое, а отрицательные заменить индексами
Помогите, пожалуйста решить.

В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательн
В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение...

В одномерном массиве вычислить максимальное число подряд идущих положительных чисел
1). В одномерном массиве вычислить максимальное число подряд идущих положительных чисел, не превышающих числа А и имеющих в своем составе...

2
 Аватар для Law[L]esS
117 / 114 / 89
Регистрация: 31.10.2009
Сообщений: 191
02.04.2010, 12:46
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12

var
 a:array[1..10] of integer;
 i,sum:integer;
begin
 for i:= 1 to 10 do begin
   a[i]:= random(20)-10;
   write(a[i],' ');
   if a[i] > 0 then sum:= sum + a[i];
 end;
 writeln;
 writeln(sum);
end.
1
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
02.04.2010, 13:24
После первого begin нужно
Pascal
1

sum := 0;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 02.04.2010, 13:24
Помогаю со студенческими работами здесь

Определить есть ли в массиве положительные, отрицательные числа и нули
Дан одномерный массив. Определить есть ли в этом массиве положительные, отрицательные числа и нули. помогите плиз, ничего не соображаю...

В последовательности действительных чисел a1, a2, ..., aN есть только положительные и отрицательные элементы.
Я понимаю что это очень простая и глупая задачка.. но у меня ступор некий возник.. -->в последовательности действительных чисел a1,...

Заменить все отрицательные числа в массиве на положительные , а положительные на отрицательные
Существует двумерный массив произвольной размерности . Заменить все отрицательные числа в массиве на положительные , а положительные на...

В массиве из 10 чисел есть положительные и отрицательные элементы. Вычислить сумму отрицательных элементов массива
Помогите пожалуйста!

В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов
2.В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. Элементы массива вводить с...


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

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

Новые блоги и статьи
Архитектура слоя интернета для сервера слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
 Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru