Найти среднее арифметическое положительных элементов массива A(100), заполненног...

November 2021 1 12 Report

Найти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20 до +20
Ребята,помогите пожалуйста

Answers & Comments

Мавортий 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.

0 votes Thanks 1

Answers & Comments

fizika 10 klass pomogite pozhalujsta eto reshit

koren iz 86 42 najdite znacheniya vyrazheniya

fizika 9 klass pomogite reshit zadachu94fb8c5fce2c6efaa4719668ede88b23 8481

3 zadachiinformatika 9 klass

pomogite sostavit rasskaz po francuzskomunebolshoj na temumoya lyubimaya muzyk

ustnaya tema po francuzskomu yazyku na temumoj lyubimyj hudozhnik nebolshoj rassk

fizika 10 klass pozhalujsta pomogite v 60 nomere tolko grafik b

рекомендуемые вопросы

Helpful Links

Helpful Social