Ответы на вопрос:
Не указан сам так что к примеру массив а(10). program z1; сonst n=10; var a: array[1..n] of integer; i,s,p: integer; begin randomize; for i: =1 to n do begin a[i]: =random (21)-10; write (a[i]: 4); end; p: =1; s: =0; for i: =1 to n do begin if 10> a[i]> 0 then s: =s+a[i]; p: =p*a[i]; end; writeln; writeln('s=',s 'p=',p); end.
Популярно: Информатика
-
сымбат5906.04.2023 22:17
-
лизя5ррр22.10.2022 00:50
-
Boba3502.09.2020 05:48
-
Aleksey8b14.05.2021 12:45
-
lyalyajan01.05.2020 08:28
-
korolnn14.02.2023 21:41
-
Лиза2209200404.03.2023 20:12
-
vhidfhv13227.03.2023 20:15
-
Random0070020.10.2022 08:50
-
gffgfytdtdety14.10.2020 00:29