logo
Войти Регистрация Спроси ai-bota


87713404829
12.01.2023 18:19

Составить программу, вычисляющую среднее арифметическое n чисел, вводимых с клавиатуры. паскаль.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
22916
22916
24.12.2022 05:57
Дан диаметр окружности d. найти ее длину l=п*d. в качестве значения п использовать 3.14...
slothy
slothy
24.12.2022 05:57
Дан диаметр окружности d. найти ее длину l=п*d. в качестве значения п использовать 3.14 на языке питон...
KeKsickON
KeKsickON
11.11.2021 14:37
Сумма всех цифр в числе вводимых пользователем, программа без while . паскаль , пример : число 127 значит сумма 10...
1Booooooooooom1
1Booooooooooom1
08.11.2022 13:42
Python. Циклы for и while. Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трёхзначных чисел или сообщает, что таких чисел...
Mitaren10n3
Mitaren10n3
02.03.2020 19:35
После выполнения фрагмента алгоритма a: =1; нц для i: =1 до 6 j: =1 нц пока j i a: =a+1 j: =j+3 кц кц переменная а примет значение если можно с подробным решением...
Kseniyagapchuk
Kseniyagapchuk
02.03.2020 19:35
Подпрограмма алг подпр 1 ( арг цел x,y, рез цел f) нач x: =x+1 y: =y*5 f: = x+y кон вызывается на выполнение нач цел а,в,с а: =3 b: =5 подпр 1 (а,в,а) после этого значение...
сссссср222
сссссср222
29.08.2021 02:37
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала вычисляется длина исходной цепочки символов; если она нечётна, то удаляется...
Dаniеll
Dаniеll
29.08.2021 02:37
Водном множестве 71 элементов, а в другом — 20. какое максимальное количество элементов может быть в их пересечении?...
hitman19102003
hitman19102003
08.09.2020 22:19
Книга состоит из 300 страниц, и на каждой странице 45 строк по 60 символов . необходимо измерить информационный объем данной книге в килобайтах и мегабайтах (1 символов=1...
adyan22041996
adyan22041996
08.09.2020 22:19
Сколькими словами информатика можно заменить информацию в учебнике, составляющую 110 мб? с этим ....
Ответ:
Obsharovak
03.07.2020 23:09
Var i,n:integer;x,s:real;
begin
read (n);
s:=0;
for i:=1 to n do
begin
read(x);
s:=s+x;
end;
writeln (s/n);
end. 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота