Задача 18 урок 15
Primary tabs
Задача 18 урок 15
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
program project15_17; var a, b: array[1..10] of integer; i, j, z: integer; begin z:=0; randomize(); for i:=low(a) to high(b) do //формируем массивы begin a[i]:=random(15); b[i]:=random(15); end; for i:=low(a) to high(a) do //выводим в консоль write(a[i],'| '); writeln(); for i:=low(b) to high(b) do //выводим в консоль write(b[i],'| '); writeln(); writeln('viborka:'); for i:=low(a) to high(b) do begin for j:=low(b) to high(b) do if a[i]<>b[j] then z:=z+1; if z=high(b) then write(a[i],'|') else z:=0; end; readln(); end.
- Log in to post comments
- 361 reads