Мы отключили личные сообщения и комментарии в профилях ( Как это решить ?
271
416
Ответы на вопрос:
uses crt;
var i,s: integer; a: array[1..5] of integer; beginrandomize; s: =0; for i: =1 to 5 dobegina[i]: =random(15)-5; if a[i]> 0 then s: =s+a[i]; end; writeln(s); readln; end.
uses crt;
var i,s: integer; a: array[1..7] of integer; begins: =0; randomize; for i: =1 to 7 dobegina[i]: =random(15)-5; if ((a[i]> 0) and (a[i] mod 2 = 0)) then inc(s); end; writeln(s); readln; end.
uses crt;
var i,s: integer; a: array[1..6] of integer; begins: =1; randomize; for i: =1 to 6 dobegina[i]: =random(15)-5; if (a[i]> 0) then s: =s*a[i]; end; writeln(s); readln; end.
Популярно: Информатика
-
Sr52928.10.2021 02:21
-
elenareznik20120.02.2022 19:50
-
IlyaPikarychev26.05.2021 06:48
-
111yo1111111111123.05.2022 22:43
-
ElliDiHastua25.10.2020 05:28
-
apoploi09.09.2022 02:14
-
ukrainskayaa14.04.2020 08:53
-
GardenBrid10.06.2022 12:25
-
marekatyan15.10.2022 08:34
-
kozina57410.09.2020 08:37