Ответы на вопрос:
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.
Популярно: Информатика
-
Kr1c21.05.2022 15:04
-
julyaloskutowaozd80409.05.2023 18:52
-
ТыУмНыЙ26.07.2020 22:05
-
66PrIvEt6666621.03.2023 23:01
-
zahar4ikk31.05.2022 13:59
-
Elinasuper1829.11.2022 02:53
-
shmitko8530.10.2021 10:42
-
mariapogorelova16.02.2023 11:39
-
vaysmotr07.02.2023 23:19
-
Snikers201802.05.2022 22:50