Получить все члены массива А, которые не входят в массив В.

Ddv122 · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

Дано два целочисленных массива: А из 15 элементов и B из 10 элементов. Получить все члены массива А, которые не входят в массив В.

@sano32 · 01.03.2011, 13:17

Pascal

uses crt;
var a:array[1..15]of integer;
    b:array[1..10]of integer;
    i,j:integer;
    t:boolean;
begin
clrscr;
randomize;
for i:=1 to 15 do
    begin
         a[i]:=random(20);
         write(a[i],' ');
    end;writeln;
for i:=1 to 10 do
    begin
         b[i]:=random(15);
         write(b[i],' ');
    end;writeln;
for i:=1 to 15 do
    begin
         t:=false;
         for j:=1 to 10 do
             begin
                  if a[i]=b[j] then t:=true;
             end;
         if t=false then write(a[i],' ');
    end;
readln;
end.

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
		1
	Получить все члены массива А, которые не входят в массив В. 01.03.2011, 10:54. Показов 1492. Ответов 1 Метки нет (Все метки) Дано два целочисленных массива: А из 15 элементов и B из 10 элементов. Получить все члены массива А, которые не входят в массив В. 0

Опции темы

Получить все члены массива А, которые не входят в массив В.

Решение