Ответы на вопрос:
Program n1; const n=200; var a: array [1..n] of integer; i,sum,k: integer; begin randomize; sum: =0; writeln('массив: '); for i: =1 to n do begin a[i]: =random(61)+20; write(a[i],' '); end; for i: =1 to n do if a[i]> 50 then begin sum: =sum+a[i]; k: =k+1; end; writeln; writeln('ср. арифм: ',sum/k); end.
Популярно: Информатика
-
aigultlegenova27.06.2020 04:39
-
cthutq159753917.11.2022 19:49
-
dora12345pandora21.11.2021 04:59
-
Дисконет05.05.2023 01:15
-
Сацуки00107.03.2023 09:26
-
misakimei130609.02.2020 18:01
-
Дарья9991131.10.2021 20:55
-
Sofia878728.06.2022 20:42
-
mrflotov03.07.2022 02:24
-
vitalesss04.03.2022 01:08