Склавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. паскаль
258
353
Ответы на вопрос:
Var a: array[1..10] of integer; i,k: integer; s: real; begin k: =0; writeln('введите числа'); for i: =1 to 10 do begin readln(a[i]); k: =k+a[i]; end; s: =k/10; writeln('среднее арифметическое равняется ',s); end.
Популярно: Информатика
-
лох25031.07.2021 06:01
-
Bibika200523.10.2021 09:52
-
shybite13.12.2021 00:16
-
Pricol518.06.2022 09:03
-
КаролинаКим30.12.2022 01:07
-
Danulchukik22.05.2020 21:18
-
Зиколя14.06.2022 09:00
-
reegiinaaa03.04.2022 20:36
-
Эноа15.04.2022 06:56
-
anlevytska10.03.2021 01:35