Ответы на вопрос:
Program bb; uses crt; const n=30; var m: array[1..n]of integer; i,k,s: integer; begin clrscr; randomize; for i: =1 to n do begin m[i]: =i; write(m[i],' '); end; writeln; write('k = '); read(k); writeln; s: =0; for i: =1 to n do if m[i] mod k = 0 then begin s: =s+m[i]; write(m[i],' '); end; writeln; writeln; writeln('сумма элементов кратных данному к = ',s); end.
Популярно: Информатика
-
Даша14518625.07.2021 09:57
-
Александрик39721.10.2021 20:08
-
Cool28124.03.2022 22:51
-
dizi1701.04.2022 18:36
-
Аружан20034512.01.2023 18:46
-
саша150108.08.2020 01:03
-
stas249127.07.2020 20:06
-
PROMES18.04.2022 19:53
-
Юля590027411.01.2021 04:59
-
limswildep09q0c04.02.2021 13:49