Задан массив фамилий C(20). ВЫДАТЬ НА ЭКРАН ФАМИЛИИ, СОДЕРЖАЩИЕ БУКВО СОЧЕТАНИЕ "МЕД" (Ахмедов, Самедов и т.д.)

Ну и?
Вам запретили использовать функцию Pos, сказали самим написать алгоритм Кнута-Морриса-Пратта?

Нет. Вы не могли бы написать эту прогу? а то я чё то не въежаю в этот паскаль(

> Нет. Вы не могли бы написать эту прогу?

Не вопрос. 1000р. Админ, пересени в "задачи на заказ".

Вы что с ума сошли? Какие 1000 рублей. Бизнес тут устроили, я подумал тут есть хорошие люди, которые просто помогут студенту. эхх

Добавлено через 1 мин.

А, ты хочешь помощи?
Тогда покажи хоть какие-то попытки что-то сделать самому.
Мы не помогаем (бесплатно) тем, кто говорит "сделайте всё за меня, я ничего не рублю".

За 1000 рублей учительница за семестр мне все баллы выставит)))а чё вы тут гоните то...Не хотите помочь так не надо..На фиг вообще отписываетесь..блин идиотов полно по миру

Нет, идиотов, которые будут всё делать за тебя, всё меньше и меньше как раз.
Не хочешь учиться - иди вон из профессии.
Мог бы хотя бы "begin end." написать, но ты даже этого не знаешь, несмотря на то, что целый семестр уже прошёл. Что ты делал во время этого семестра?

Следующие 2 семестра у таких, как ты, будут такими:

Программа задания

 Program first;	                       z=(c2-b2)/(2sinx-a4)*ab	a=2;  b=2,2
Var   a         :Integer				y=lnx+2ln(sinx)		c=10,51; x=0,2
b,c,x,z,y      :Real
Begin
Writeln (‘Введите значение a,b,c,x’ );
Read (a,b,c,x);	
y:=ln*x+2*ln(sin*x)
z:=(c*c-b*b)/(2*sin*x-a*a*a*a)*a*b
Writeln(‘y=’,y:10:6,’z=’,z:10:6);
End.

Вот это я сам писал! Довольны? я просто не знаю как на массивы писать. Я не виноват в том, что у нас в универах бардак! Не объясняют и нету книжек чтобы читать!

Массив описывается так:

var
a: array [1 .. 20] of extended;

Это массив из 20 элементов типа extended, причём нумеруются они от 1 до 20.
Обращение к элементу по индексу i делается так: a[i]
Например, a[i] := 34;
Или a[5] := a[4];

В твоём случае нужен массив элементов типа string.
К каждому из них надо применить функцию Pos (в справке про неё всё есть).

Спасибо вам огромное.Свои слова беру назад)

Интерпретирую это как просьбу увеличить репутацию (+1) TarasBer'у