Задача по 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

const n=20;var a:array[1..n] of int64;max, k, i, j: integer;beginfor 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 01 1 1 1 0 1 0 1 0 16

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы