Re: Pascal

и тут еще одну надо я ее написал, но не полностью подскажите:

Дана последовательность из 100 целых чисел,определить кол-во чисел в наиболее длинной последовательности.Из подряд идущих чилел.

Порассуждаем.

0) не забываем заполнить массив значениями - прежде чем работать с ним...

например случайными числами от 0 до 100

var

A: array [0..99] of integer

i: integer;

begin

for i:=0 to 99 do A[i] := random(100)

1) как определить идут ли числа последовательно?

если значение текущего элемента массива - 1 равно предыдущему элементу массива - тогда можно считать что числа идут последовательно и увеличить счётчик

if A[i]-1 = A[i-1] then ...

2) иначе надо проанализировать принимал ли наш счётчит большее значение чем полученное - если нет то присвоить ему новое значение - для этого мы определим новую переменную max_counter

var    max_counter: integer;

begin    counter := 1;    max_counter := 1;    ...

   if counter > max_counter then max_counter := counter

4) ну и готовый пример скачиваем тут