Вопрос по информатике:
1. В одномерном массиве А(10) вычислить среднее арифметическое квадратов положительных элементов.
Пожаловаться
- 02.09.2016 00:15
- Информатика
- remove_red_eye 14498
- thumb_up 47
Ответы и объяснения 2
Pascal ABC.
var
a: array [1..10] of integer; i,sum,k:integer;
begin
for i:= 1 to 10 do begin
a[i]:=random(100)-50;
if a[i]>0 then begin sum:=sum+sqr(a[i]); inc(k); end;
write(a[i], ' ');
end;
writeln;
writeln(sum/k);
end.
var
a: array [1..10] of integer; i,sum,k:integer;
begin
for i:= 1 to 10 do begin
a[i]:=random(100)-50;
if a[i]>0 then begin sum:=sum+sqr(a[i]); inc(k); end;
write(a[i], ' ');
end;
writeln;
writeln(sum/k);
end.
Пожаловаться
- 02.09.2016 12:42
- thumb_up 35
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
Пример
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
a.Where(x->x>0).Select(x->x*x).Average.Println
end.
Пример
29 45 -32 -44 -48 25 8 -4 -25 -22
888.75
Пожаловаться
- 03.09.2016 13:19
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы