Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Циклически сдвинуть элементы списка на n позиций. https://www.cyberforum.ru/ pascal/ thread144217.html 1). Дан список L, элементы которого являются действительными числами и натуральное число n. Циклически сдвинуть элементы списка на n позиций. 2). Определить класс, описывающий правильный пятиугольник. Написать программу, в которой используются методы определенного класса. Буду очень признателен!!!))) Кому это по силам, пожалуйста помогите!!!	Вычислить сумму гармонического ряда с точностью до 0,001 Pascal Вычислить сумму гармонического ряда с точностью до 0,001. вот что я написал: program pr1; var n,s:real; begin write('vvedite chiclo n= '); readln(n); s:=LN(n)+0.57721556649; (это формула Эйлера) write('Sn= ',s:2:3); readln;
Pascal Среднеарифметическое егэ. Файлы. https://www.cyberforum.ru/ pascal/ thread144211.html Доброго времени суток. 1)Результаты ЕГЭ представлены в файле ege.dat следующий образом: 1-ая строка ФИО, 2-ая строка сумма балов. Составить программу нахождения среднего арифметического (баллов) всех учеников, здавший егэ и количество учеников имеющий баллы выше среднего. Добавлено через 1 час 33 минуты Подскажите хотя бы какие-нибудь идеи насчет решения данной задачки. Добавлено через 4...	Pascal Подсчитать количество строк в файле - Ввести с клавиатуры произвольное имя текстового файла. - Найти на жестком диске компьютера все файлы с заданным именем (одноименные файлы могут находиться в разных папках), поочередно вывести на экран их содержимое. Если ни одного файла не найдено, выдать сообщение. - Выполнить обработку каждого найденного файла в соответствии с заданием в варианте. - Создать текстовый файл с именем... https://www.cyberforum.ru/ pascal/ thread144210.html
Pascal сделать так чтобы выводило в текстовый документ среднее арифм-ое 3 мин.кодов. Помогите плиз переделать прогу так чтобы она выводила среднеt арифметическое 3 мин кодов текстовый файл(*.txt) program lab4; uses Crt; var a:arrayof char; x:char; h:real; i,j,m,k,c,n:integer; BEGIN clrscr; writeln('zadaite kolichestvo elementov masssiva');	Pascal Дана действительная матрица С[6 x 6].Найти Наименьшее из значений элементов. Дана Действительная матрица С. Найти наименьшее из значений элементов, расположенный в заштрихованной части матрицы(Нарисован квадрат, разделённый вертиклаьной линией, правая сторона заштрихована). Найти сумму элементов главной диагонали. Оссуществить два способа ввода матрицы ( по желанию пользователя): ввод с клавиатуры и задание элементов случайным способом. на печать вывести - исходную... https://www.cyberforum.ru/ pascal/ thread144204.html
Pascal Матрицы https://www.cyberforum.ru/ pascal/ thread144203.html Прошу написать программу по задаче, срочно ! Задача: Для каждой из вещественных прямоугольных матриц x,y подсчитать сумму положительных элементов последнего столбца. Заранее благодарен :) Добавлено через 3 часа 12 минут Плиззз срочно надо !	Бесконечная сумма с заданной точностью E(E>0) Pascal Вычислить Бесконечную сумму с заданной точностью E(E>0). Считать. что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем E,- это и все последующие слагаемые можно уже не учитывать. Вычислить: Сумма от i=1 до бесконечности 1/i*(i+2) Помогите пожалуйста срочно?
Pascal Для заданных натуральных n и k определить, равно ли число n сумме k-x степеней своих цифр https://www.cyberforum.ru/ pascal/ thread144191.html Для заданных натуральных n и k определить, равно ли число n сумме k-x степеней своих цифр.	Pascal Проверить, будут ли все цифры числа различными Дано натуральное число n. Проверить, будут ли все цифры числа различными. https://www.cyberforum.ru/ pascal/ thread144190.html
Pascal Какие числа может объявить первый игрок на начальном шаге, чтобы второй игрок в некоторый момент объявил число 00? . Игрок А объявляет двузначное число от 01 до 99. Игрок В меняет местами его цифры и прибавляет полученное число к сумме его цифр. Полученный результат он объявляет игроку А. Игрок А проделывает с этим числом ту же процедуру, и так они продолжают поступать поочередно, объявляя числа. От суммы чисел берется остаток от деления на 100, поэтому объявляются лишь двузначные числа. Какие числа может...	Pascal Найти и вывести все числа в интервале от 1 до N https://www.cyberforum.ru/ pascal/ thread144185.html Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N — 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет». Пример. N = 44. Числа: 17, 26, 35.

4 / 4 / 7

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

Сообщений: 20

11.06.2010, 13:57

В одномерном массиве вычислить максимальное число подряд идущих положительных чисел - Pascal - Ответ 796910

11.06.2010, 13:57. Показов 2323. Ответов 3

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

program a1;
uses crt;
const n=30;
var s:array [1..n] of integer;
b,c,i,a:integer;
begin clrscr;
randomize;
read(a);
        for i:=1 to n do
        begin
        s[i]:=random(2)+5;
        write(s[i],' ');
        end;
i:=1;
repeat
c:=i;
        if s[i]>0 then
                if s[i]<=a then
                        if (s[i]-5 mod 10=0) or (s[i] div 10=5) then
                                if s[i]=s[i+1] then
                                begin
                                while s[i]=s[i+1] do
                                i:=i+1;
                                b:=i-c;
                                end;
i:=i+1;
until (i=n) or (i=n+1);
writeln;
writeln(b+1);
readln;
end.

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

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

11.06.2010, 13:57

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

Дан массив А, состоящий из n натуральных чисел. Определите максимальное число идущих подряд элементов, равных
Дан массив А, состоящий из n натуральных чисел. Определите максимальное число идущих подряд...

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

Наибольшее число идущих подряд положительнных элементов в массиве
Плиз помогите только начинаю программировать!!! Нужно реализовать на Pascale Определить наибольшее...

Подсчитать наибольшее число идущих в массиве подряд одинаковых элементов
4) Имя входного файла: z571.in Имя выходного файла: z571.out Дана целочисленная таблица A....

	11.06.2010, 13:57

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

11.06.2010, 13:57

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

В последовательности целых чисел определить, имеются ли в ней два идущих подряд положительных элемента
(Задачу реализовать без использования массивов) В последовательности целых чисел...

Определить длину первой последовательности одинаковых цифр, идущих рядом, в произвольном одномерном массиве целых чисел
Определить длину первой последовательности одинаковых цифр, идущих рядом, в произвольном одномерном...

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

максимальное количество подряд идущих элементов
Опишите на русском или одном из языков программирования алгоритм подсчета максимального количества...

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

Наверх