Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Составьте программы к блок-схемам.​

Answer 1

5.

program scheme;

var y,i,x:integer;

begin

 y:= 0;

 for i:= 1 to 10 do

   begin

     readln(x);

     if x mod 2 = 0 then

       y:=x+y;

   end;

 writeln(y);

end.

Answer 2

6.
program scheme;
var y,i,x:integer;
begin
y:= 0;
for i:= 1 to 10 do
begin
readln(x);
if x mod 2 <> 0 then
y:=y+1;
end;
writeln(y);
end.