Задача 22 Урок 15
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержатся во втором.
type arr1 = array [1..20] of integer; arr2 = array [1..20] of integer; var min, max, i, j : integer; flag : boolean; a : arr1; b : arr2; begin randomize(); min := -10; max := 20; for i := low(a) to high(a) do a[i] := min + random(max - min + 1); for i := low(b) to high(b) do b[i] := min + random(max - min + 1); i := 1; writeln('Во втором массиве отсутствуют числа: '); while i <= high(a) do begin for j := low(b) to high(b) do if a[i] <> b[j] then flag := true else begin flag := false; break end; if flag then write(a[i], ' '); i += 1; end; writeln; for i := low(a) to high(a) do write(a[i], ' '); writeln; for i := low(b) to high(b) do write(b[i], ' '); writeln; write('Программа завершила свою работу'); readln(); end.
- Log in to post comments
- 284 reads