определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве. Программа нужна в паскале!!!
10-11 класс
|
program asdassg;
uses crt;
var a:array [1..10]of integer;i,lmax,l:integer;
begin
writeln('vvedite elementu vectora') ;
for i:=1 to 10 do read (a[i]) ;
for i:=1 to 10 do write (a[i],' ' );
writeln;
lmax:=0; l:=0;
for i:=2 to 10 do begin
if (a[i]=a[i-1]) and (a[i]=0) then l:=l+1 else l:=1;
if l>lmax then lmax:=l;
end;
writeln('samaya dlinnaya posledovatelnost 0 =',lmax);
end.
Другие вопросы из категории
Читайте также
и английского алфавита прикосновением пера к экрану. Для переключения между заглавными и строчными буквами используется клавиша Shift, нажатие на которую приводит к смене режима на время ввода одной следующей буквы, и клавиша Caps Lock для постоянной смены режима. Для смены алфавита с русского языка на английский используется клавиша au (клавиша находится между Ctrl и Alt). В начальном состоянии клавиатура находится в режиме строчных русских букв.
Требуется написать программу, выводящую минимальную длину
последовательности прикосновений пера для набора заданной строки.
Технические требования.
Имя входного файла: INPUT.TXT
Имя выходного файла: OUTPUT.TXT
Формат входных данных:
В единственной строке входного файла содержится строка длиной не более 50 скатолов, содержащая заглавные и строчные русские и английские буквы. Формат выходных данных:
В единственной строке выходного файла содержится единственное число - минимальная длина последовательности прикосновений пера для набора заданной строки.
Примеры файлов входных данных: Примеры файлов выходных данных:
Строка 7
ПРИВЕТhеllо 14