Ответы на вопрос:
Const n = 13; var a: array[1..n] of integer; i,x: integer; begin write('x = '); readln(x); write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(n)-n div 2; write(a[i],' '); end; writeln; write('искомые элементы: '); for i: = 1 to n do if (-1 < = a[i] mod x)and(a[i] mod x < = 0) then write(a[i],' ') end.
Популярно: Информатика
-
milana616414.11.2021 02:30
-
Polinadonut21.11.2021 02:36
-
karinroy06.06.2021 03:33
-
kirilladmiiral11.04.2023 17:01
-
omka0201.04.2020 18:49
-
sogianachkebia06.01.2022 08:25
-
mravals28.06.2023 15:38
-
aidanmoretti03.03.2023 02:39
-
raizat200408.01.2020 16:18
-
SashaV200316.05.2023 18:42