Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычислить: S= sin4/5 + sin5/7 -sin6/9+....-sin20/37 Прошу помоч с решением данной задачки Вычислить: S= sin4/5 + sin5/7 -sin6/9+....-sin20/37 https://www.cyberforum.ru/ pascal/ thread130612.html Pascal Упорядочивание В алфавитном Порядке!
Люди добрые! =).. Помогите Пожалуста.. Нужно чтобы введеные данные программа Сортировала в Алфавитном порядке.. Как это сделать?
Pascal Необходимо переделать программу https://www.cyberforum.ru/ pascal/ thread130603.html
Есть задание и готовая программа к этому заданию, но у меня другой вариант, но фишка в том что в заданиях изменено одно слово. Вообщем вот задание готовой программы: Для каждого ряда матрицы...
Pascal работа с файлом очень нужна помощь! плз, помогите написать программы!( 1. Дан файл, элементы которого – целые числа. Найти число элементов в файле. 2. Дан текстовый файл, содержащий строки. Найти число строк,... https://www.cyberforum.ru/ pascal/ thread130594.html
Pascal Все нечетные числа записать в один массив, файл, список, четные – в другой.
Все нечетные числа записать в один массив, файл, список, четные – в другой. Повторяющиеся числа не писать. Уравнять последовательность до минимальной длины удалением чисел.
Pascal Двумерные массивы..а как это вообще делать Целочисленная прямоугольная матрица заполняется с помощью генератора случайных чисел значениями из промежутка . Характеристикой строки целочисленной матрицы назовем сумму ее отрицатель*ных четных... https://www.cyberforum.ru/ pascal/ thread130588.html
Pascal Создать программу которая запрашивает данные https://www.cyberforum.ru/ pascal/ thread130587.html
Задание №3 А. Создайте программу, которая запрашивает данные и сохраняет их в файле. Б. Создайте программу,которая считывает информацию из файла и выводит на экран записи, удовлетворяющие заданному...
Создать программу которая... Pascal
Задание №2 Создайте программу, которая запрашивает текстовую строку и заменяет все слоги ВО на ГА, а а строчные буквы т на прописные Т. Протокол: Введите строку: Слово, удержанное тобою, - раб...
Pascal Создать программу которая заполняет массив 12x12 Задание №1 А. Создайте программу, которая заполняет массив 12x12 числами по следующему правилу: -элементы, расположенные на главной диагонали, равны 0; -элементы, расположенные выше главной... https://www.cyberforum.ru/ pascal/ thread130584.html Pascal Из трех введенных множеств символов сформировать помогите,о гуру паскаля:) Из трех введенных множеств символов сформировать и вывести четвертое множество символов, входящих ровно в два любых из этих множеств. https://www.cyberforum.ru/ pascal/ thread130580.html
Pascal Блок-схема
Begin Uses crt; Var x,s,t,e:real; n:integer; begin clrscr; x:=0.2; e:=0.000000001; t:=1; s:=0;
Pascal лист, падающий с дерева нарисовать в паскале лист, падающий с дерева https://www.cyberforum.ru/ pascal/ thread130544.html
4341 / 1473 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
16.05.2010, 23:16 0

Вычислить произведение и количество элементов, следующих до первого нулевого элемента - Pascal - Ответ 731418

16.05.2010, 23:16. Показов 1236. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
p:=1;
k:=0;
for i:=1 to N do if a[i]<>0 then
begin
 inc(k);
 p:=p*a[i];
end else break;
writeln(k,' элементов');
writeln('P=',p);


Вернуться к обсуждению:
Вычислить произведение и количество элементов, следующих до первого нулевого элемента Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2010, 23:16
Готовые ответы и решения:

Найти сумму отрицательных элементов, находящихся после первого нулевого элемента
в одномерном массиве A(N) (N&lt;=50) найти сумму отрицательных элементов находящихся после первого...

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

Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента.
1. Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента. 2....

Составить программу, которая определяет количество положительных элементов до последнего нулевого элемента
РЕБЯТ,ППОМОГИТЕ ПОЖАЛУЙСТА 1)Составить программу для нахождения суммы минимального и максимального...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2010, 23:16
Помогаю со студенческими работами здесь

Найти номер первого положительного элемента массива и произведение последующих элементов
дан масив А(10). найти номер первого положительного элемента и произведение последующих элементов

В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля
В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов...

Вычислить произведение элементов массива до первого отрицательного
Помогите решить, пожалуйсто,здачи: 1) В массиве {aj}, j = 1, 2, …10 есть хотя бы один...

Вычисление наименьшего общего кратного элементов массива до первого нулевого элемента
Составьте программу вычисления наименьшего общего кратного элементов целочисленного массива A(N),...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru