Дан вектор 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.

s=0

i=1

< ======================================

если   a(i, i) не равно 100   то   s=s+a(i, i)               ||

i=i+1                                                                                 ||      

если i < 6 то перейти на ===================

иначе печатать s         (сумма)

 

вот и алгоритм

var

  a: array [1..5,1..5] of integer;

  i,j: integer;

  f: boolean;

begin

  randomize;

  f: =false;

  writeln ('исходный массив: ');  

  for i: =1 to 5 do begin

    for j: =1 to 5 do begin

    a[i,j]: =random(12)-3;

    if (i=j) and (a[i,j]< 0) then f: =true;

    write (a[i,j]: 3);

    end;

    writeln;

  end;

  if f=true then begin

    writeln ('полученный массив: ');    

    for i: =1 to 5 do begin

    for j: =1 to 5 do begin

      if (i=j) then a[i,j]: =0;

      write (a[i,j]: 3);

    end;

    writeln;

    end 

  end else writeln ('на главной диагонали нет отриц. эл.');  

  readln;

end.