Предмет: Информатика,
автор: Broshkar
Найти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20 до +20
Ребята,помогите пожалуйста
Ответы
Автор ответа:
0
var b,c,k:integer;
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln('a[',c,']= ',a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln('Среднее арифметическое элементов массива равняется ',d);
end.
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln('a[',c,']= ',a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln('Среднее арифметическое элементов массива равняется ',d);
end.
Похожие вопросы
Предмет: Русский язык,
автор: mahmutovahamis
Предмет: Қазақ тiлi,
автор: zhasmin1012
Предмет: Математика,
автор: ddsdsdsd234343
Предмет: Биология,
автор: айгуль2323
Предмет: Математика,
автор: metallistbalalaykin