Вопрос по информатике:
Дан массив из 15 элементов, найти среднее арифметическое этих элементов.
Помогите, срочно нужно
Пожаловаться
- 18.08.2016 00:10
- Информатика
- remove_red_eye 11347
- thumb_up 33
Ответы и объяснения 1
Const n=15;
var
a: array[1..n] of integer;
sa: real;
i: byte;
begin
writeln ('Введите ',n,' чисел: ');
sa:=0;
for i:=1 to n do begin;
read (a[i]);
sa:=sa+a[i];
end;
sa:=sa/i;
writeln ('Среднее арифметическое = ',sa);
end.
-------------------------------
Введите 15 чисел:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Среднее арифметическое = 8
var
a: array[1..n] of integer;
sa: real;
i: byte;
begin
writeln ('Введите ',n,' чисел: ');
sa:=0;
for i:=1 to n do begin;
read (a[i]);
sa:=sa+a[i];
end;
sa:=sa/i;
writeln ('Среднее арифметическое = ',sa);
end.
-------------------------------
Введите 15 чисел:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Среднее арифметическое = 8
Пожаловаться
- 19.08.2016 07:41
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы