Ответы на вопрос:
в строке с номером 46. т.е. в основной программе, где указано имя процедуры.
Var s,i: integer; a: array[1..10] of integer; b: array[1..10] of integer; c: array[1..20] of integer; begin for i: =1 to 10 do begin read(a[i]); if a[i] mod 10 = 0 then begin s: =s+1; c[s]: =a[i]; end; end; for i: =1 to 10 do begin read(b[i]); if a[i] mod 10 = 0 then begin s: =s+1; c[s]: =b[i]; end; end; for i: =1 to s do begin write(c[i],' '); end; end.
Популярно: Информатика
-
MSDOS1616.02.2022 10:14
-
Anna67890120.07.2020 08:30
-
ilyaska1011.11.2020 22:25
-
naumovvalera9617.09.2021 09:14
-
lolkajoin30.11.2022 09:25
-
SHiiimochka05.12.2022 07:31
-
janaljubche14.11.2021 14:15
-
petrachenkov20106.06.2022 16:39
-
iukhg15.01.2023 04:07
-
flku29.02.2020 23:59