Водномерном массиве произвольных чисел найти количество нечётных элементов(паскаль)

Function f(a: array of integer): byte; begin   foreach i: integer in a do     if (i mod 2 = 1) then       result += 1; end; begin   var a: array of integer : = new integer[50];   for var i : = 0 to 49 do   begin     a[i] : = random(1, 300000);     write(a[i], ' ');   end;       writeln(#13, #13, f(a)); end.

Сформулирована не корректно, т.к. недостаточно информации о формировании сообщения. в случае если мы передаём значение 15 то сообщение будет размером 1 111 бит. в худшем случае минимальное сообщение будет иметь размерность 100 000 битв лучшем случае сообщение может быть представлено как поток 2битных сообщений. максимальная длина потока будет равна 32 сообщениям. в случае оптимистичного прогноза успех может произойти на первом сообщении. таким образом мы считаем номер в потоке и значение бита. если значение == 1 то в этом вагоне находятся друзья.

{треугольник задан координатами вершин (x1; ; ; y3). найти площадь треугольника (используя формулу герона) } uses crt; var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real; begin clrscr; write('x1='); readln(x1); write('y1='); readln(y1); write('x2='); readln(x2); write('y2='); readln(y2); write('x3='); readln(x3); write('y3='); readln(y3); a: =sqrt(sqr(x1-x2)+sqr(y1-y2)); b: =sqrt(sqr(x2-x3)+sqr(y2-y3)); c: =sqrt(sqr(x3-x1)+sqr(y1-y3)); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('s=',s); readln; end. формула герона! а так я думаю эти даже не сложные, только формулы надо ! периметр- это сумма всех сторон например begin writteln( 'введите 3 стороны' ) ; readln(a,b,c); writeln(' периметр = ',a+b+c); readln; end. вот и ! удачи!