Консультация № 154504
15.12.2008, 21:29
0.00 руб.
0 1 1
помогите составить программу
Проверить выполнение следующего свойства упорядоченных по возрастанию массивов а[1..n] и b[1..m]: для каждого элемента a[i] (i=1...n) найдется равный ему элемент массива b

Обсуждение

Неизвестный
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.
Форма ответа