const
N=30;
var a: array [1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
…
end.
const N=30;
var a: array[1..N] of integer;
max, num, i: integer;
begin
max:=0;
num:=0;
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if (a[i] mod 2 = 0) then
num:=num+1
else begin
if num>=max then
max:=num;
num:=0;
end;
if num>=max then
max:=num;
Writeln(max);
end.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть