массив строк, объясните Опции

[Wise Girl]

Второй день сижу капаюсь в учебниках и инете,толку мало ! не могу найти инфу про робату с массивом строк!мне надо пример любой задачи на эту тему,самую простую !!!

помогите пожалуйста!!!
ЗА РАНЕЕ ОГРОМНОЕ СПАСИБО!!!

Сообщение отредактировано: Wise Girl - 4.05.2009 16:56

[Wise Girl]

у меня ест одна!!но она сильно простая - вывести на экран 5 слов в виде массива строк . и вычислить сколько раз встречается слово ИВАНОВ .

var s,sl:string;
      er:array [1..5] of string;
     k,i:integer;
begin
for i:= 1 to 5 do
  readln(er[i]);
  readln(s);
k:=0;
for i:= 1 to 5 do
begin
  writeln(er[i]);
  if(pos(s,er[i])>0)then
    inc(k);
end;
writeln(k);
readln;

[Lapp]

у меня ест одна!!

Ну есть и хорошо. А тут она зачем? Мы не просили..