Вопрос по информатике:
Сформировать массив из 15 целых чисел, выбранных случайным образом из интервала [-10,30]. Найти среднее арифметическое положительных элементов.
Пожаловаться
- 20.09.2015 11:06
- Информатика
- remove_red_eye 11382
- thumb_up 31
Ответы и объяснения 1
1. Решение в современном стиле
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-10,30); a.Println;
Writeln(a.Where(t->t>0).Average)
end.
Пример
9 -6 -9 11 -8 27 -8 -2 4 11 3 24 4 -5 -7
11.625
2. Решение в стиле "Так обычно учат в школах"
const
n=15;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(41)-10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Writeln(s/n)
end.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-10,30); a.Println;
Writeln(a.Where(t->t>0).Average)
end.
Пример
9 -6 -9 11 -8 27 -8 -2 4 11 3 24 4 -5 -7
11.625
2. Решение в стиле "Так обычно учат в школах"
const
n=15;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(41)-10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Writeln(s/n)
end.
Пожаловаться
- 22.09.2015 00:35
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы