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

Mazilo

36 / 36 / 72

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

Сообщений: 206

19.12.2015, 15:05

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

19.12.2015, 15:05. Просмотров 784. Ответов 4

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

Ответ

qwerff,

Pascal

Const n=10;
Type arr =  array [1..n] of integer;
Var A : arr;
    i, k : integer;
 
procedure proc1(A : arr; var k : integer);
begin
k:=0;
While (k<=n) and (A[k]<>0) do inc(k);
Dec(k);
end;
 
begin
Randomize;
For i:=1 to n do A[i]:=random(10);
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
Writeln;
proc1(A, k);
Writeln('k=', k);
Readln;
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

19.12.2015, 15:05

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

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

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

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

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

Наверх