Составьте программу подсчета числа элементов встречающихся только в одном из массивов A(N) или B(N) ОДНОМЕРНЫЙ МАССИВ
Var i, j, kolvo:Integer; a, b:array[1..10] of Integer;begin; randomize; {Заполнение массивов} for i:=1 to 10 do begin; a[i] := random(0, 10); b[i] := random(0, 10); end; {Вывод массива a} write(Массив a = [, a[1]); for i:=2 to 10 do begin; write(, , a[i]); end; writeln(];); {Вывод массива b} write(Массив b = [, b[1]); for i:=2 to 10 do begin; write(, , b[i]); end; writeln(];); {Непосредственно нахождение кол-ва уникальных элементов} kolvo:=0; for i:=1 to 10 do begin; for j:=1 to 10 do begin; if(a[i] = b[j]) then break; if(j=10)then Inc(kolvo); end; end; for i:=1 to 10 do begin; for j:=1 to 10 do begin; if(b[i] = a[j]) then break; if(j=10)then Inc(kolvo); end; end; writeln(Количество уникальных элементов массива: , kolvo,.);end.
Результат:
Массив a = [8, 10, 4, 9, 0, 1, 5, 8, 9, 8];Массив b = [4, 0, 1, 5, 6, 2, 2, 1, 3, 9];Количество уникальных элементов массива: 8.
Выглядит правдоподобно, но не проверял.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
