15.12.2008, 21:54
общий
это ответ
Здравствуйте, Маевская Мария Андреевна!
Решение вашей задачи в приложении, с вопросами обращайтесь в личку или ICQ 477626455
Приложение:
var
a,b:array[1..100] of integer;
i,n,m,z,k:integer;
BEGIN
writeln('vvedite n i m');
readln(n,m);
writeln('zapolnite massiv a iz ',n,' elementov');
for i:=1 to n do
read(a[i]);
writeln('zapolnite massiv b iz ',m,' elementov');
for i:=1 to m do
read(b[i]);
k:=1;
z:=0;
for i:=1 to m do
if a[k]=b[i] then
begin
inc(z);
inc(k);
end;
writeln;
if z=n then writeln('TRUE') else writeln('FALSE');
END.