roulen
Var mass:array[1..14] of integer; i,sumch,sumnech:integer; begin i:=0; sumch:=0; sumnech:=0; repeat i:=i+1; mass[i]:=random(10)+1; if (mass[i] mod 2) =0 then sumch:=sumch+mass[i] else sumnech:=sumnech+mass[i]; writeln(mass[i]); until i=14; writeln('сумма четных = '+sumch); writeln('сумма нечетных = '+sumnech); end.
Answers & Comments
i,sumch,sumnech:integer;
begin
i:=0;
sumch:=0;
sumnech:=0;
repeat
i:=i+1;
mass[i]:=random(10)+1;
if (mass[i] mod 2) =0
then sumch:=sumch+mass[i]
else sumnech:=sumnech+mass[i];
writeln(mass[i]);
until i=14;
writeln('сумма четных = '+sumch);
writeln('сумма нечетных = '+sumnech);
end.