Ответы на вопрос:
Const n = 13; var z: array[1..n] of integer; i: integer; s: real; begin randomize; s: =0; write('исходный массив: '); for i: = 1 to n do begin z[i]: =random(2*n+1)-n; write(' ',z[i]); if (z[i] mod 3 = 0)and(z[i] mod 4 < > 0) then s: =s+z[i]; end; writeln; writeln('s = ',s); end.
Популярно: Информатика
-
ТвойВраг22.11.2022 00:53
-
nikdaniil0419.01.2020 04:41
-
Mist3YT22.03.2020 20:28
-
UchenikH01.06.2023 16:08
-
ХлойкаПрайс10.03.2022 05:27
-
ЮкиТеру24.02.2020 04:10
-
Костя4563202.06.2020 04:32
-
Виола12200601.04.2021 10:02
-
Dima89043819.08.2022 11:05
-
mischad22.04.2022 06:29