Ответы на вопрос:
Const n=10; var a,b: array[1..n] of integer; i,j,c: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(51)-25; write(a[i]: 4); end; writeln; j: =0; for i: =1 to n do begin c: =abs(a[i]) mod 10; if (c=3)or(c=7)or(c=9) then begin j: =j+1; b[j]: =a[i]; end; end; writeln('полученный массив: '); for i: =1 to j do write(b[i]: 4); writeln; end. пример: исходный массив: 17 6 15 -23 19 -5 -12 -14 5 20 полученный массив: 17 -23 19
Популярно: Информатика
-
morozhenkom17.11.2022 00:08
-
1Polina221114.12.2020 08:10
-
valeria03mailowfj4z02.04.2022 08:19
-
qwert05074910.01.2021 22:46
-
единорог10619.01.2020 07:07
-
даша233616.05.2021 11:42
-
vladazimenko1503.03.2022 12:33
-
19Otlichnik1914.02.2022 07:14
-
Браство10.05.2021 17:33
-
клубничка11404.10.2021 00:36