Задача 22 Урок 15
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
program u15z22; type massiv = array[1..10] of integer; var m, n: massiv; i, j ,q: integer; begin randomize(); for i:=low(m) to high(m) do begin m[i] := random (50)-10; write (m[i], ' '); end; writeln(); for i:=low(n) to high(n) do begin n[i] := random (50)-10; write (n[i], ' '); end; writeln (); for i:=low(m) to high(m) do begin for j:=low(n) to high(n) do if m[i]=n[j] then begin q:=0; break; end else q:=1; if q=1 then write (m[i], ' '); end; readln();
- Log in to post comments
- 181 reads