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

Обработать массив из случайных чисел

15.01.2023, 20:43. Показов 346. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая генерирует массив из 20 случайных чисел от -50 до 50. Затем программа находит и выводит по одному числу на строке:
1) Сумму всех элементов
2) Сумму положительных элементов
3) Сумму отрицательных элементов
4) Произведение элементов, которые делятся на 7
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.01.2023, 20:43
Ответы с готовыми решениями:

График температур. Подправить код из turbo (не знаю где писать в PascalABC или PascalABC.net)
На Pascal ABC не запускается(( uses crt,graph; const n=31; {массив - константа, можно ввести с клавиатуры} ...

Где можно скачать PascalABC а не PascalABC.Net
Где можно скачать PascalABC а не PascalABC.Net?

Многопоточность в PascalABC
Поддерживает ли PascalABC функцию многопоточности? Если да, то с помощью чего это реализовано?

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
15.01.2023, 21:16
Лучший ответ Сообщение было отмечено riser_354 как решение

Решение

Основная идея:
Pascal
1
2
3
4
5
6
7
8
9
10
p:=1; {sn:=0; sp:=0;}
for i:=1 to 20 do begin
  t:=-50+Random(101);
  if t<0 then Inc(sn,t) else Inc(sp,t);
  if t mod 7=0 then p:=p*t;
end;
WriteLn(sn+sp);
WriteLn(sp);
WriteLn(sn);
WriteLn(p);
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.01.2023, 21:16
Помогаю со студенческими работами здесь

PascalABC задание
построить блок-схему алгоритма и написать программу для решения следующей задачи. Даны действительные числа À и В. Если А и В...

Рисунок в PascalABC
ДЗ 9 класса help pls =) Нужно нарисовать рисунок в паскале

Переведите на PascalABC
#include &lt;iostream&gt; using namespace std; int main() { int n = 0; cin &gt;&gt; n; int c = 1; for(int i = 1;i...

переписать на PascalABC
Добавлено через 9 минут Помогите, пожалуйста, переписать на PascalABC) Program Pod_Uglom; Uses Crt, Graph; Type G = array of...

PascalABC.NET
Нет ли у кого когового графического редактора, очень нужно.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru