Меню сайта

Задача №20
Дан целочисленный массив из 30 элементов. Найти максимальное количество одинаковых элементов, идущих подряд.
Program mas_20-
const n =30-
var a: array[1..n] of integer-
— i, k, kmax: integer-
begin
for i:=1 to n do
begin
writeln(‘введите’,i,’элемент‘)-
readln(a[i])-
end-
k := 1- — — — — — — — — — — — —
kmax := 1- — — — — — — — — — —
for i:=2 to n do begin — — —
— if a[i] = a[i-1] then — — — —
— — — -k := k + 1 —
— else k := 1- — — — — — — — — —
— if k &gt- kmax then kmax := k-
end-
Writeln(‘Макс. кол. =’,kmax)-
Readln-
End.
Категория: Массивы | Дата: 20.12.12

Меню раздела
Блок