Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти наибольшую длину монотонного участка последовательности https://www.cyberforum.ru/ turbo-pascal/ thread1618466.html
Задание: Найти наибольшую длину монотонного участка последовательности.
Прокомментировать код Turbo Pascal
Прочитайте пожалуйста тело программы по действиям , очень надо! начиная с FOR const m=5; n=4; var a: array of Integer; i, j, k, p, mn, mx: Integer; begin Randomize; for i:=1 to m do...
Turbo Pascal Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся ровно два раза
Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся ровно два раза. но удалять цифру а не ячейку и сделать это с помощью процедур и функций
Turbo Pascal Задачи на If и For 1)Для данной области составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае (надо делать через If, рисунок... https://www.cyberforum.ru/ turbo-pascal/ thread1618241.html
Turbo Pascal Определить номер треугольника с наибольшей гипотенузой https://www.cyberforum.ru/ turbo-pascal/ thread1618233.html
Даны три прямоугольных треугольника, катеты которых равны а1,а2; в1,в2; с1,с2 соответственно. Определить номер треугольника с наибольшей гипотенузой. Результат вывести на экран.
Массивы Turbo Pascal
Помогите написать программы в школу, инфу плохо понимаю( 1. замените все элементы массива целых чисел С(n) на противоположные по знаку 2. найти произведение элементов массива целых чисел А(n),...
Turbo Pascal Представить число в буквенном виде
Полная задача звучит так: Вводится 2 целых числа, первое положительное, второе любое Второе число выводится текстом Сверху и снизу строка выделяется количеством звездочек указанным первым числом....
Turbo Pascal Вычислить значения Ребят, помогите пожалуйста с задачи. Уже который день не могу решить( 1. Вычислить значения 33 элементов одномерного целочисленного массива Y в интервале (-6, 10) с использованием генератора... https://www.cyberforum.ru/ turbo-pascal/ thread1618036.html
Turbo Pascal Алгоритмы на графах https://www.cyberforum.ru/ turbo-pascal/ thread1617931.html
По системе двусторонних дорог определить, можно ли, перегородив какие-нибудь дороги, добиться, чтобы из города A нельзя было попасть в город B.
Turbo Pascal Определить, можно ли попасть из одного заданного пункта в другой Имеется n населенных пунктов, пронумерованных от 1 до n. Некоторые пары пунктов соединены дорогами (в том числе дорогами с односторонним движением). Определить, можно ли попасть по этим дорогам из... https://www.cyberforum.ru/ turbo-pascal/ thread1617874.html
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
19.12.2015, 16:44 0

Определить число элементов одномерного массива предшествующих его первому нулевому элементу

19.12.2015, 16:44. Просмотров 778. Ответов 4
Метки (Все метки)

Ответ


vint-81,
Pascal
1
k:=1;
Если первый элемент нулевой, значит перед ним нет ни одного. Поэтому
Pascal
1
k:=0;


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

Массив. Найти сумму и количество элементов, предшествующих первому нулевому элементу.
Дан массив А(10).Найти сумму и количество элементов, предшествующих первому нулевому...

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...

Найти среднее арифметическое элементов предшествующих первому отрицательному элементу
найти среднее арифмитическое элементов предшествующих первому отрицательному элементу. чёт у меня...

Элементы, предшествующие первому нулевому элементу, заменить на 0,5
даны два массива А(10), В(10). в массивах А(10) и В(10) все элементы предшествующие первому...

4
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.