Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal сортировка тела с фиксированной последовательностью https://www.cyberforum.ru/ pascal/ thread288877.html 1)сортировка тела с фиксированной последовательностью 2)пузырьковая сортировка(сверху-вниз) в обоих алгоритмах подсчитать кол-во сравнений ключей 1)???? <--- кто знает как делать? 2)Пузырьковая сортировка Program Sort; Const Nmax = 100; Var	Pascal Прямой поиск в строке и поиск в таблице 1)сделать прямой поиск в строке и оформить как функцию программа вот: Program n10;var s,x: string; i,j,n,m: integer; f: boolean; begin writeln('Введите строку s: '); readln(s); writeln('Введите строку x: '); readln(x);
Pascal Сумма косинусов https://www.cyberforum.ru/ pascal/ thread288853.html Составить программу определения суммы первых десяти положительных членов последовательности аn=cos(n) где н натуральное число. С помощью цикла. Через While Добавлено через 3 минуты заранее спасибо Добавлено через 10 минут у меня с While просто паскаль тупит. и я не могу проверить	Pascal проверте программу Ребята проверте у меня задачу на функции Условие: Определить, является ли число совершенным, то есть равно ли оно сумме своих делителей, кроме самого себя. program proc; uses crt; var n,i,s:integer; function Sum(m:integer;sum:integer):integer; var s,i:integer; begin for i:=1 to n-1 do https://www.cyberforum.ru/ pascal/ thread288852.html
Pascal Алгоритм Боуера-Мура и поставить счётчик(сколько символов сравнения было) Поиск в таблице без ключа помогите с решением пожалуйста Алгоритм Боуера-Мура и поставить счётчик(сколько символов сравнения было) Поиск в таблице без ключа изменить:окончание аргумента выполнить по его длине оформить обе программы как процедуры буду очень благодарен	Pascal 1-ое поле real , 2-ое поле строковое Сделать поиск с помощью оператора while Транспозиция если поиск удачен https://www.cyberforum.ru/ pascal/ thread288809.html помогите решить пожалуйста ВВод с клавиатуры-исходные данные записи из двух полей 1-ое поле real , 2-ое поле строковое Сделать поиск с помощью оператора while Транспозиция если поиск удачен оформить этот поиск как функцию.
Pascal составить программу на паскале с возведением числа в 3 степень и имеющую закономерность https://www.cyberforum.ru/ pascal/ thread288759.html Подскажите пожалуиста,как составить программу на паскале с возведением числа в 3 степень и имеющую закономерность ....1 в 3=1; 2 в 3 = 3+5; 3 в 3 =7+9+11 и т.д	Перевод с True Basic -> на Pascal Pascal Плиз, помогите перевести с Basic на Pascal. Срочно нужно. Оплата будет за верный перевод. О цене договоримся
Pascal оператори for whiie repeat Написать программу к заданиям: а) найти сумму n членов ряда для заданного х за помощью оператору цикла с параметром; б) найти сумму членов ряда с точностью ε для заданного х и их количество. в) найти сумму членов ряда с точностью ε для заданной последовательности х. Во внешнем цикле для подачи аргумента х использовать оператор цикла с предпосылкой, во внутреннем – вычислить сумму для... https://www.cyberforum.ru/ pascal/ thread288630.html	Pascal функцыи За выбором пользователя (реализуется через оператор case) развязать указанное задание, использовав собственные процедуры. Программу оформить в оконно-текстовому интерфейсе. 1. b-а степень числа (а-3) 2. объем конуса 3. рост суммы вклада в банк (начальный вклад S, банковский процент q) https://www.cyberforum.ru/ pascal/ thread288620.html
Pascal Самая длинная возрастающая последовательность чисел Дана последовательность натуральных чисел, оканчивающаяся на 0. Вывести самую длинную возрастающую последовательность и количество чисел в ней. Это возможно без массивов? oO	Pascal Заменить единицами строку, которая содержит наибольший элемент Входные данни: массив А вещественных чисел размером m х n, где m=3, n=5. Заменить единицами строку, которая содержит наибольший элемент. https://www.cyberforum.ru/ pascal/ thread288614.html

Zimenko

4 / 4 / 4

Регистрация: 04.05.2011

Сообщений: 7

04.05.2011, 23:16

В одномерном числовом массиве найти сумму квадратов отрицательных элементов - Pascal - Ответ 1615783

04.05.2011, 23:16. Показов 1151. Ответов 2

Метки (Все метки)

Ответ

program massiv;
uses crt;
var a:array[1..20] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(100)-50;
For i:=1 to 20 do
write(a[i]:4);
sum:=0;
For i:=1 to 20 do
if a[i]<0 then
inc(sum,sqr(a[i]));
writeln(a[i],' ');
writeln('сумма квадратов отрицательных элементов: ',sum) ;
end.

Вернуться к обсуждению:
В одномерном числовом массиве найти сумму квадратов отрицательных элементов Pascal

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

04.05.2011, 23:16

Готовые ответы и решения:

Определить сумму неотрицательных элементов в одномерном числовом массиве
паскаль решение

В одномерном числовом массиве найти сумму нечётных по значению элементов
В одномерном числовом массиве найти сумму всех элементов, имеющих нечетное значение

В одномерном числовом массиве вычислить сумму элементов, кратных 10
Помогите решить 2 задачи с массивом! 1. В одномерном числовом массиве А(n) вычислите сумму...

В одномерном числовом массиве посчитать среднее арифметическое отрицательных элементов
В одномерном числовом массиве посчитать среднее арифметическое отрицательных элементов. Заранее...

	04.05.2011, 23:16

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

04.05.2011, 23:16

Помогаю со студенческими работами здесь

В одномерном массиве найти сумму отрицательных элементов
Нужна помощь! Не могу больше. Поправьте пожалуйста!! Задание: В одномерном массиве, состоящем из...

В одномерном числовом массиве посчитать количество и сумму чётных элементов
Решить задачу в консольном режиме : задача 1 )В одномерном числовом массиве посчитать ...

Найти сумму положительных, отрицательных и нулевых элементов в одномерном массиве
спасайте! старушка весь семестр ничего от нас не хотела и вдруг - оп! - и 2 программы каждую 6ю...

В одномерном целочисленном массиве найти сумму элементов, количество нечетных отрицательных элементов
Дан одномерный массив целых чисел A размера N=7. Найти и вывести а) сумму его элементов б)...

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх