Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Исследовать область определения и построить график функции https://www.cyberforum.ru/ pascalabc-net/ thread2157725.html
Исследовать область определения и построить график функции: y=x/(3x^2+2x+1) Нужна помощь с данной задачей помогите пожалуйста uses graphABC; function f(x:real):real; begin f:=x/(3*x*x+2*x +1); end; var xn,xk,x,dx,mx,my:real; x0,y0:integer; begin setwindowsize(700,500); centerwindow;
PascalABC.NET Работа с последовательностями чисел https://www.cyberforum.ru/ pascalabc-net/ thread2157875.html
Вычисление суммы только четных чисел из последовательно вводимых чисел. var s, a: integer; begin s := 0; repeat readln(a); if not odd(a) then s := s + a; until a <= 0; // пока числа положительные
PascalABC.NET Выведите содержимое очереди на экран и посчитайте количество элементов образованной очереди Дан текстовый файл. Проанализировав в программе содержимое файла, выберите из него имена и занесите в очередь. Выведите содержимое очереди на экран и посчитайте количество элементов образованной... Взято отсюда: https://www.cyberforum.ru/turbo-pascal/thread77419.html type Tinf = string;{тип данных, который будет храниться в элементе очереди} List = ^TList;{Указатель на элемент типа... https://www.cyberforum.ru/ pascalabc-net/ thread2158006.html PascalABC.NET В окружность вписанные два треугольника(нарисовать) https://www.cyberforum.ru/ pascalabc-net/ thread2157925.html
program graphic; uses graphABC; {подключаем модуль GraphABC для работы} begin SetPenColor(clRed); {устанавливаем цвет пера - красный} SetBrushColor(clBlue); {Второй способ – установка... А сетка в окружности нужна? Добавлено через 8 минут Если не нужно, то так. uses graphABC; begin circle(300,200,60); SetPenColor(clRed); SetBrushColor(clRed); line(240,200,360,200);
PascalABC.NET С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5 https://www.cyberforum.ru/ pascalabc-net/ thread2158114.html
1.С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5 самый простой и понятный способ var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 : integer; begin Write('Введите 10 чисел: '); Read(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10); if a1>5 then...
PascalABC.NET Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы. С комментариями, пожалуйста! Растут три дуба, один из которых сосна... https://www.cyberforum.ru/ pascalabc-net/ thread2157904.html
PascalABC.NET Изменение размера при движении по поверхности экрана https://www.cyberforum.ru/ pascalabc-net/ thread2157933.html
Варианты заданий Задачи изменение размера движение по поверхности экрана 6. увеличение от всех углов экрана к центру экрана увеличение от всех углов экрана к центру экрана Если от углов к центру, то это будет уменьшение.
PascalABC.NET Разработать программу тестирования.
*. Разработайте программу тестирования. Вопросы должны выводиться по одному. Следующий вопрос появляется после ответа на предыдущий. В конце должен быть выведен результат. https://www.cyberforum.ru/pascalabc-net/thread877018.html
PascalABC.NET Используя рекурсию написать программу перевода натурального числа из десятичной системы счисления в четверичную Здравствуйте. Помогите пожалуйста. Задание звучит: Используя рекурсию написать программу перевода натурального числа из десятичной системы счисления в четверичную procedure dectoquvart(n:integer;var res:string); begin if n>3 then dectoquvart((n div 4),res) else res:=''; res:=res+inttostr(n mod 4); end; var n:integer; s:string; begin write('n=');... https://www.cyberforum.ru/ pascalabc-net/ thread2157974.html PascalABC.NET Программа для обработки синуса, косинуса, тангенса Создать приложение(программу) обеспечивающую обработку следующих данных: 1. Функция синус, функция косинус, функция тангенс. Полученные результаты обработки отображаются в виде графика ... uses graphABC; function f(a,b,c,d,x:real):real; begin f:=a+b*cos(c*x+d) end; var a,b,c,d,xn,xk,x,dx,mx,my:real; x0,y0:integer; begin repeat write('Введите параметр а от -5 до 5 а='); https://www.cyberforum.ru/ pascalabc-net/ thread2157770.html
Используя рекурсию написать программу перевода натурального числа из двоичной системы счисления в семеричную PascalABC.NET
Используя рекурсию написать программу перевода натурального числа из двоичной системы счисления в семеричную Точно в семеричную? Может в восьмеричную? Просто напрямую из 2 в 7 нет алгоритма.
PascalABC.NET Вывести среднее количество наград по каждому виду спорта Здравствуйте. Помогите пожалуйста. Задача на записи Record. Задание: Осуществить ввод общей информации по спортсменам (имя, фамилия, вид спорта, количество наград). Вывести среднее количество... Помогите пожалуйста https://www.cyberforum.ru/ pascalabc-net/ thread2157979.html
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
15.12.2017, 19:00 0

В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов - PascalABC.NET - Ответ 11950008

15.12.2017, 19:00. Показов 3608. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Веня2211113123 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a: array [1..10] of integer;
  sum, i: integer;
 
begin
  sum := 0;
  for i := 1 to 10 do 
  begin
    readln(a[i]);
    if a[i] > 0 then 
      sum := sum + a[i];
  end;
  writeln(sum);
end.


Вернуться к обсуждению:
В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов PascalABC.NET
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.12.2017, 19:00
Готовые ответы и решения:

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

Найти процент отрицательных чисел в массиве и вычислить сумму первого и последнего положительных элементов
Задание 1.Задан массив вещественных чисел Х(n). Найти: • процент отрицательных чисел в массиве; • сумму первого и последнего...

Вычислить сумму положительных и произведение отрицательных целых чисел
С клавиатуры водится последовательность целых чисел, заканчивающихся числом 0. Составить алгоритм и написать программу подсчета суммы...

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.12.2017, 19:00
Помогаю со студенческими работами здесь

В массиве вычислить сумму отрицательных чисел и отдельную сумму положительных
в массиве вычислить сумму отрицательных чисел и отдельную сумму положительных(мин 10 элементов) и еще :составить программу которая в...

Дан файл f целых чисел. Получите отдельно сумму отрицательных и сумму положительных элементов файла.
1. Дан файл f целых чисел. Получите отдельно сумму отрицательных и сумму положительных элементов файла. 2. Дан файл f целых чисел....

В одномерном массиве вычислить сумму отрицательных элементов массива и произведение положительных
Есть задание: В одномерном массиве, состоящем из n вещественных элементов, вычислить: сумму отрицательных элементов массива и...

С клавиатуры вводятся массив целых чисел. Проверить наблюдается ли в массиве чередование положительных и отрицательных элементов
С клавиатуры вводятся массив целых чисел. Проверить наблюдается ли в массиве чередование положительных и отрицательных элементов. ...

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

0
Новые блоги и статьи
Обнаружение аномалий в машинном обучении на Python
stackOverflow 19.02.2025
Аномалии — это отклонения от ожидаемого поведения системы, которые могут указывать как на потенциальные проблемы, так и на интересные возможности для исследования. В контексте машинного обучения. . .
Введение в представления (views) Django
stackOverflow 19.02.2025
Представления (views) - ключевой элемент веб-фреймворка Django, который отвечает за обработку HTTP-запросов и формирование ответов. Они действуют как посредники между данными приложения и шаблонами,. . .
Что такое шаблоны Django и как с ними работать
stackOverflow 19.02.2025
Шаблоны Django - основополагающий компонент фреймворка Django, который позволяет эффективно разделять логику приложения и его визуальное представление. Это очень важный инструмент для. . .
Какой Python Web-фреймворк лучший: Django, Flask или FastAPI?
stackOverflow 19.02.2025
В разработке под веб Python занимает особое место благодаря своей универсальности и богатой экосистеме. При создании веб-приложений разработчики сталкиваются с важным выбором - какой фреймворк. . .
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru