Задача 18 Урок 15
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
var i, j: integer; z: boolean; a, b: array [1..10] of integer; begin randomize(); for i := 1 to 10 do a[i] := random(21) - 10; write('Массив 1: '); for i := 1 to 10 do write(a[i], ' '); writeln(); for i := 1 to 10 do b[i] := random(21) - 10; write('Массив 2: '); for i := 1 to 10 do write(b[i], ' '); writeln(); for i := 1 to 10 do begin z := true; for j := 1 to 10 do if a[i] = b[j] then z := false; if z then write(a[i], ' ') end; readln(); end.
- Log in to post comments
- 705 reads