Ответы на вопрос:
Var a: array [1..7] of real; i: integer; m,s: real; begin for i: =1 to 7 do read (a[i]); for i: =1 to 7 do if a[i]< 0 then a[i]: =a[7]; for i: =1 to 7 do write (a[i],' '); end. ================================ var a: array [1..100] of integer; k,x1,x2,i: integer; s: real; begin s: =0; read(k); read(x1); read(x2); for i: =1 to k do read (a[i]); for i: =1 to k do begin if a[i] in [x1..x2] then s: =s+a[i]; end; write (s,' '); end.
Популярно: Информатика
-
БелыйЯд18.06.2020 19:50
-
aSZdxcjkltr234518.01.2020 22:37
-
dayn91507.08.2021 02:14
-
katy24421.11.2022 08:11
-
AlinaTishka12.10.2022 21:19
-
НастяЛитвинюк21.01.2021 09:58
-
Finikotik29.01.2022 00:05
-
irenda82800118.05.2021 06:49
-
Qwertyuiopasdfghjkzz22.02.2021 23:31
-
Degradant8128.08.2021 04:11