Помогите пожалуйста: дан массив целых чисел от50 до 199 удалить из массива все простые числа и заменить в получившемся массиве на квадраты ближайших к ним и меньшими из чисел фибоначи. Это платно?если да то сколько

М

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Это в любом случае. Переименуй, пожалуйста, в ближайшее время.

По поводу платности. Возможно 2 варианта: тебе помогут, но придется и самой приложить усилия. Тогда - бесплатно.
Если самой делать совершенно не хочется, я перенесу тему в "Задачи на заказ". Там можно будет и цену, и сроки, и способ оплаты обговорить.

Вариант первый...помогите кто чем может ...а дальше может сама смогу разобраться

Просто пройтись в цикле по всем элементам, проверяя, является ли текущее число простым. Для проверки можно использовать функцию вроде такой:

function PrimeNumber(n:integer):boolean;
var
  i:integer;
  b:boolean;
begin
  b:= n>1;
  i:=2;
  while b and (i*i<=n) do begin
    b:=(n mod i)>0;
    Inc(i)
  end;
  PrimeNumber:=b
end;

Начни писать саму основную программу с циклом. Что получится, покажи здесь.

PS
Не совсем понятно условие..
"заменить в получившемся массиве на квадраты ближайших к ним и меньшими из чисел фибоначи"
что за ближайшие к ним? ближайшее снизу или сверху? И как это ".. и меньшими из чисел фибоначи"?
Проясни, плз. Если самой не совсем ясно - спрос препа. Если есть точное написанное условие - давай его сюда.