1. в одномерном массиве а(10) вычислить среднее арифметическое квадратов положительных элементов.
272
389
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(10,-50,50); a.println; a.where(x-> x> 0).select(x-> x*x).average.println end. пример 29 45 -32 -44 -48 25 8 -4 -25 -22 888.75
Pascal abc. var a: array [1..10] of integer; i,sum,k: integer; begin for i: = 1 to 10 do begin a[i]: =random(100)-50; if a[i]> 0 then begin sum: =sum+sqr(a[i]); inc(k); end; write(a[i], ' '); end; writeln; writeln(sum/k); end.
1) 2
2) 78
3) 75
4) 109
5) 140
6) 215
7) 4
Объяснение:
1) 101000
2)
3) 74 < 75 < 76
4) + =
5) ...:
) 135) 140) 137) 1397) 200 < x < 205 = 4 цифр.
Популярно: Информатика
-
рахима5Е01.10.2020 11:21
-
ЧерепашкаВася22.05.2020 05:44
-
alioo11.06.2022 05:44
-
саня132127.01.2020 19:18
-
полинадудка22.11.2022 01:42
-
Апофис13.08.2022 18:04
-
valeria800213.08.2021 10:42
-
Kate11086825.03.2021 14:06
-
Rosalin101.04.2022 15:52
-
sofia200441726.12.2020 04:20