Составить программу, которая формирует случайным образом два одномерных массива из N элементов и выводит элементы первого массива, которые не встречаются во втором (PascalABC)
Ответы
Ответ дал:
0
program raf105;
const
N = 10;
var
a,b: array[1..N] of integer;
x: boolean;
begin
for var i:=1 to N do
begin
a[i]:= random(15);
b[i]:= random(15);
end;
writeln('A: ',a);
writeln('B: ',b);
write('Вывод: ');
for var i:=1 to N do
begin
x:= False;
for var j:=1 to N do
if a[i] = b[j] then x:= True;
if not(x) then write(a[i],', ');
end;
end.
PascalABC
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад