По pascal abc. 90 ! используйте if, for, writeln, write, read, readln, var, begin, end, int64 и добавьте несколько переменных например: i,max. нужно на завтра к дана последовательность из 20 целых чисел. определите количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей. формат входных данных в программу вводятся 20 целых чисел, принадлежащих диапазону [−215; 215−1], по 10 чисел на строке. формат выходных данных программа должна вывести количество нулей в наиболее длинной подпоследовательности. примеры входные данные 1 1 1 1 0 0 0 0 0 0 1 1 1 1 0 1 0 1 0 1 выходные данные 6
s1cro
2
16.03.2019 15:08
0
Другие вопросы по теме Информатика
aiperiwa
19.08.2019 15:50
superdyuseldor
19.08.2019 15:50
kirillkleptzov
11.06.2019 09:10
pstrebykina
11.06.2019 09:10
SalamatMaksetov
11.06.2019 09:20
Mari666a
11.06.2019 09:20
nataaleksandro2
11.06.2019 09:20
helenkarchevskp08ll5
11.06.2019 09:20
Nata10445love
11.06.2019 09:20
Популярные вопросы
- Сообщение на тему: понимание текста как процесс творчества...
2 - Выписаны первые несколько членов арифметической прогресси: -6;...
1 - Які епітети використовує автор в іліаді щодо зевса,афіни,аполлона,ахілла,гектора?...
1 - Подьезды разбор где приставка корень и т д как его разобрать...
1 - Рассказ про любимый журнал непоседа...
3 - Чем похожи и чем отличается генотип и фенотип...
2 - Автобус проежает 160км за 2ч.сколько км проедет автобус за 6ч...
1 - Решите с уравнения.ваня задумал число.если к этому числу прибавить...
2 - 7класс: прямой угол в 4,5 раза больше одного из смежных углов.найдите...
2 - Морфологический разбор наречия в полет...
1
const n=20;
var a:array[1..n] of int64;
max, k, i, j: integer;
begin
for j:=0 to 1 do
begin
for i:=1 to n div 2 do read(a[j*10+i]);
readln;
end;
max:=0;
k:=0;
for i:=1 to n do
if a[i]=0 then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
if k>max then max:=k;
writeln(max);
end.
Пример:
1 1 1 1 0 0 0 0 0 0
1 1 1 1 0 1 0 1 0 1
6