Пожаловаться
- 09.08.2018 18:39
- Информатика
- remove_red_eye 3337
- thumb_up 48
Ответы и объяснения 2
Var
a: array[1..5] of integer;
sa: real;
i: byte;
begin
writeln ('Введите числа: ');
sa:=0;
for i:=1 to 5 do begin
read (a[i]);
sa:=sa+a[i];
end;
sa:=sa/(i);
writeln ('Среднее арифметическое = ',sa);
end.
--------------------------------------
Введите числа:
2 3 4 5 6
Среднее арифметическое = 4
a: array[1..5] of integer;
sa: real;
i: byte;
begin
writeln ('Введите числа: ');
sa:=0;
for i:=1 to 5 do begin
read (a[i]);
sa:=sa+a[i];
end;
sa:=sa/(i);
writeln ('Среднее арифметическое = ',sa);
end.
--------------------------------------
Введите числа:
2 3 4 5 6
Среднее арифметическое = 4
Пожаловаться
- 01.01.1970 00:00
- thumb_up 33
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadSeqReal('Введите 5 чисел:',5).Average;
Writeln('Ср. арифм. элементов равно ',m)
end.
Пример
Введите 5 чисел: 14 13.2 15.1 16 9.64
Ср. арифм. элементов равно 13.588
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadSeqReal('Введите 5 чисел:',5).Average;
Writeln('Ср. арифм. элементов равно ',m)
end.
Пример
Введите 5 чисел: 14 13.2 15.1 16 9.64
Ср. арифм. элементов равно 13.588
Пожаловаться
- 01.01.1970 00:00
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы