Pascal. Massiv

[Eithate]

Ребят, помогите пожалуйста с двумя задачками:

1. Дан массив, элементы которого- прибыль фирм за некоторый период. Определить количество фирм, прибыль которых ниже заданной. Если таких нет-выдавать сообщение.
2.Дан массив, элементы, которого -названия фирм. Определить количество фирм, в названиях которых имеется символ "&". Если таких нет-выдавать сообщение.

Буду очень благодарна!

[Eithate]

пожалуйста

[Eithate]

апапап

[Serge_Bliznykov]

А Вы что, ничего делать не собираетесь, только будете тему "апать"?!

1-я задача.

  Count := 0;
  for i:=1 to N do
    if Pribyl[i]<ZadannayPribyl then Inc(Count);
  WriteLn('Таких фирм: ', Count);

2-я.

  Count := 0;
  for i:=1 to N do
    if Pos('&',Nazvanie[i])>0 then Inc(Count);

  if Count>0 then
    WriteLn('Таких фирм: ', Count);

описание переменных и ввод исходных данных добавите самостоятельно!

[Eithate]

спасибо большое
понимала бы, было все иначе - не апала.