Люди напишите код программы на Турбе до 19.30 26 мая....по Иркутскому времени....пожалуйста...к экзамену не допускают...
задание:
Дан массив а(1..n) целых чисел. Найти в этом массиве наибольшее количество подряд идущих нулей.
Заранее благодарен!!!
uses crt;
var a,b,c,i,k:longint;
begin
clrscr;
i:=0;
a:=1;
b:=1;
k:=2;
while i<1 do begin
c:=a+b;
a:=b;
b:=c;
inc(k);
if (c mod 100)=0 then i:=1;
end;
writeln(k);
readln;
end.
Miker:Волшебник Какому преподу служили?