Составить программу и её блок-схему используя одномерные массивы: Дано одномерный массив А, состоящий из N элементов. Посчитать максимальное количество подряд нулей.
(Pascal)​

Ни для кого не секрет, что в геймерских клавиатурах самыми часто используемыми клавишами являются W,A,S,D. Иногда бывало так, что именно эти клавиши выходили из строя со временем и клавиатуру приходилось выбрасывать. В случае с A4Tech Bloody B188, В328, В418 было использовано необычное решение — ключевые кнопки получили механические переключатели Light Strike со скоростью отклика 0,2 мс. Полный ход клавиш равен 2,2 мм, ход до срабатывания — 1,5 мм. По заявлению производителя, новые переключатели срабатывают на 30% быстрее, чем обычные механические переключатели.

Const 
s1=' x.';
s2='*[email protected]#%&)(`~^\/}{][:;><? ,.'; 
var a:string; c:char; i:integer;
begin 
Writeln ('Hello! What do you want from me? It is that what I can:');
writeln('1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)');
readln (c); 
if c = '2' then 
 begin
 writeln('enter your message'); 
 readln(a); 
 for i := 1 to length(a) do 
  if pos(a[i],s1)>0 then a[i]:=s2[pos(a[i],s1)]
 end
else // if c = '1' then
 begin
 writeln('enter my message'); 
 readln(a);
 for i := 1 to length(a) do 
  if pos(a[i],s2)>0 then a[i]:=s1[pos(a[i],s2)]
 end;
writeln(a);
end.

Пример:
Hello! What do you want from me? It is that what I can:
1)translate message encrypted by me (enter 1) or encrypt message inputted by me (enter 2)
2
enter your message
privet
/{&;![