Задача 22 Урок 15
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
type myArr = array [1..10] of integer; var min, max, i, j : integer; flag : boolean; a,b : myArr; 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); writeln('No in the second'); for i := low(a) to 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], ' '); end; writeln; writeln('the first array'); for i := low(a) to high(a) do write(a[i], ' '); writeln; writeln('the two array'); for i := low(b) to high(b) do write(b[i], ' '); writeln; write('End'); readln(); end.
Вывод консоли:
No in the second 10 11 10 14 -7 7 the first array 15 10 15 9 11 10 -3 14 -7 7 the two array -3 9 -8 -9 -3 -5 13 12 -6 15 End
- Log in to post comments
- 151 reads