Задачка по Pascal ABC. Даю 90 баллов!!! Используйте if, for, writeln,
Задачка по Pascal ABC. Даю 90 баллов!!! Используйте if, for, writeln, write, read, readln, var, begin, end, int64 и добавьте несколько переменных к примеру: i,max.
Необходимо на завтра к 9!!!!
Дана последовательность из 20 целых чисел. Обусловьте количество чисел в более длинной подпоследовательности из подряд идущих нулей.
Формат входных данных
В программку вводятся 20 целых чисел, принадлежащих спектру [215;2151], по 10 чисел на строке.
Формат выходных данных
Программка обязана вывести количество нулей в более длинноватой подпоследовательности.
Примеры
входные данные
1 1 1 1 0 0 0 0 0 0
1 1 1 1 0 1 0 1 0 1
выходные данные
6
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 kgt;max then max:=k;
k:=0;
end;
if kgt;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
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.