Задача по Pascal ABC. Даю 90 баллов!!! Используйте if, for, writeln, write, read, readln,...

Question

Задача по Pascal ABC. Даю 90 баллов!!! Используйте if, for, writeln, write, read, readln, var, begin, end, int64 и добавьте несколько переменных например: i,max. Нужно на завтра к 9!!!! Дана последовательность из 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

Answer 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