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

В паскале

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.