Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти число пар соседних элементов массива, являющихся чётными числами. ABC Pascal !!!

Ответ оставил Гость

Var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(36)+10;
writeln(a[, i, ] = , a[i]);
end;
for i:=2 to 10 do
if (a[i] mod 2 = 0) and (a[i-1] mod 2 = 0) then s:=s+1;
writeln(Число соседних четных пар: , s);
end.