Второй день сижу капаюсь в учебниках и инете,толку мало ! не могу найти инфу про робату с массивом строк!мне надо пример любой задачи на эту тему,самую простую !!!
помогите пожалуйста!!!
ЗА РАНЕЕ ОГРОМНОЕ СПАСИБО!!!
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;