Дано описание массива:
vara:array[1..n]ofinteger;
Выбери, какие элементы массива подходят.
1) среда четверг суббота
229
353
Ответы на вопрос:
Var i: integer; sr: real; a: array[1..10]of integer; begin for i: =1 to 10 do begin a[i]: =random(10); write(a[i],' '); sr: =sr+a[i]; end; writeln; sr: =sr/10; writeln('среднее значение: ',sr); for i: =1 to 10 do if a[i]> sr then write(a[i],' '); end.
Популярно: Информатика
-
DYUK1s28.02.2023 19:08
-
karevmaxim4974owjcrc16.01.2021 17:25
-
8707455299321.07.2020 15:37
-
влад225322.04.2021 10:36
-
Польди14.05.2021 23:25
-
Mymail1026.03.2020 08:18
-
vehea7834719.06.2023 10:41
-
Darya001203.04.2023 19:51
-
3546528.04.2022 15:25
-
sakinaxalilova210.03.2020 07:42