Задача 18 Урок 15
Primary tabs
У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.
program U15Z18; type mas = array [1..10] of integer; var a,b: mas; i,j: integer; f: boolean; procedure zap(var m: mas); var g:integer; begin for g:=1 to 20 do begin m[g]:=random(20)-10; write(m[g],' '); end; writeln(); end; begin randomize(); zap(a); zap(b); f:=true; write('chisla: '); for i:=1 to 10 do begin for j:=1 to 10 do begin if (a[i]=b[j]) then begin f:=false; break; end; end; for j:=i-1 downto 1 do if (a[i]=a[j]) then f:=false; if (f) then write(a[i],' ') else f:=true; end; readln(); end.
- Log in to post comments
- 915 reads