Ответы на вопрос:
vari : integer; a: array [1..15] of integer; begin
//заполним массивfor i: =1 to 15 dobegina[i]: =random(20)-10; if (a[i] mod 2)=0 then a[i]: =round(a[i]/2) else a[i]: =a[i]*3 end; //распечатаем результатfor i: =1 to 15 do writeln (a[i]); end.
Популярно: Информатика
-
Elenakurdoglo07.05.2023 10:26
-
Kosty1254130.07.2021 17:53
-
умныйнет130.11.2020 23:20
-
alesh12345629.06.2023 11:17
-
nataliacosciuc26.09.2020 11:12
-
kioppo06.11.2020 23:02
-
aniyzelenev05.12.2021 03:32
-
maximruba10.06.2020 19:29
-
revkova5a26.08.2020 14:27
-
Diana1727383927.05.2020 14:30