8. Чертёжнику был дан для исполнения следующий алгоритм: Повтори 5 paз
Сместиться на (1, 2)
Сместиться на (−2, 2)
Сместиться на (2, −3)
Конец
Какую команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?
275
383
Ответы на вопрос:
//pascal abc.net v3.1 сборка 1172 var ar: array[1..15] of integer; i,k1,k2: integer; r1,r2: real; begin randomize; writeln('array: '); for i: =1 to 15 do begin ar[i]: =random(-20,20); write(ar[i]: 4); if i mod 2=0 then begin inc(k1); r1: =r1+ar[i]; end; if ar[i]> 0 then begin inc(k2); r2: =r2+k2; end; end; r1: =r1/k1; r2: =r2/k2; writeln; if r1> r2 then writeln('среднее арифметическое элементов стоящих на четных местах'); if r1< r2 then writeln('cреднее арифметическое положительных элементов массива'); if r1=r2 then writeln('равно'); end.
Популярно: Информатика
-
Машка415509.02.2023 08:19
-
Maxi200705.01.2021 07:28
-
kri222109.08.2020 11:44
-
AlexGood2103.08.2021 22:09
-
putin00625.04.2022 15:14
-
cvetaharlanova514.05.2020 05:32
-
Полинка876953257820.11.2021 03:00
-
MarusiaG19.09.2021 05:24
-
kalina1976200513.06.2022 22:36
-
makshardin1703.10.2022 21:20