Ответы на вопрос:
Первая . function has7octal(n: integer): boolean; var p, q, r: integer; begin result : = false; if n > 0 then begin p : = abs(n); repeat q : = p div 8; r : = p mod 8; if r = 7 then begin result : = true; p : = 0 end else p : = q until p = 0; end; end; const m = 10; n = 7; var a: array[1..m] of integer; b: array[1..n] of integer; c: array[1..m + n] of integer; i, k: integer; begin writeln('введите элементы масcива а(', m, ')'); for i : = 1 to m do read(a[i]); writeln('введите элементы масcива b(', n, ')'); for i : = 1 to n do read(b[i]); k : = 0; for i : = 1 to m do if not has7octal(a[i]) then begin k : = k + 1; c[k] : = a[i] end; for i : = 1 to n do if not has7octal(b[i]) then begin k : = k + 1; c[k] : = b[i] end; writeln('результирующий массив'); for i : = 1 to k do write(c[i]: 7); writeln end. тестовый прогон: введите элементы масcива а(10) 3453 -2341 2424 15353 0 5344 93 7777 1274 -343 введите элементы масcива b(7) 8644 8090 -12321 23432 5 1234 35 результирующий массив -2341 0 5344 93 -343 -12321 23432 5 1234 35
Популярно: Информатика
-
КоляКотик07.01.2022 22:07
-
vladsimonenko411.01.2021 02:56
-
ZhoniLegend04.01.2020 15:16
-
mikalis14.09.2022 15:31
-
444m07.04.2023 13:39
-
emeljanenkoira12.10.2022 08:03
-
здравствуйте11213.03.2021 05:51
-
vitokle02.06.2023 01:16
-
kep95103.05.2022 19:29
-
lilpupm27.04.2022 05:22