Дан вектор F(11) определить количество нечетных элементов и умножить ** него первый...

Question

Дан вектор F(11) определить количество нечетных элементов и умножить на него первый четный элемент.
В паскале

Answer 1

Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
   begin
   F[i]:=10+random(90);
            if (F[i] mod 2 <>0) then Col:=Col+1;
   end;
flag:=false;
for i:=1 to n do
   if (F[i] mod 2 = 0) then
       begin
            flag:=true;
             el:=F[i];
             exit;
       end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.