Напишите программу, которая вычисляет значение функции по формуле:

1)
program test;
uses crt;
var
  arr:array[1..10] of integer;
  i,cou:integer;
begin
clrscr;
  for i:=1 to 10 do
  begin
    write('Itput arr[',i,'] ');readln(arr[i]);
    if (arr[i]>0) and (arr[i] mod 2 = 0) then cou:=cou+1;
  end;
  writeln(cou);
end.

2)Тут вообще можно 1 циклом обойтись, но так не надо заворачиваться с перетаскиванием курсора.
program test;
uses crt;
var
  arr:array[1..10] of integer;
  i:integer;
begin
  randomize;
  clrscr;
  for i:=1 to 10 do
    begin
      arr[i]:=random(20)+1;
      write(arr[i],' ');
    end;
  writeln;
  for i:=1 to 10 do
    if (arr[i]>5) and (arr[i]<15) then write(arr[i],' ');
end.

По бокам коробки
Кругленькие кнопки.
Тут же рядом, в уголке
Ручка с трубкой на шнурке.
Без языка говорит,
Прекрасно слышит без ушей.
ответ: Телефон

Что за чудо-агрегат
Может делать все подряд -
Петь, играть, читать, считать,
Самым лучшим другом стать?

На столе стоит сундук
В сундуке окошко,
Мозно видеть чудеса,
Если знать немножко.

На доске по строчечке
Разместились кнопочки
Догадайтесь мальчики
Как здесь тыкать пальчиком?

То-то радость, то-то смех
На бумаге, без огрех,
Из какой коробки лезет
Текст на удивленье всех?

По ковру зверек бежит,
То замрет, то закружит,
Коврика не покидает,
Что за зверь, кто угадает?

Как смогли вести беседу
Два часа после обеда
Три подружки, из Норильска,
Озерков и Сан-Франциско?

Чудо-юдо чемодан
Лампа, кнопка да карман.
Он окутан проводами
Словно город Амстердам.

Это что за вертолет
Не отправится в полет?
Его дело не летать,
А считать, считать, считать…

Если что-то отключить,
То компьютер замолчит,
Тугоухий, как медведь -
Ничего не сможет спеть.