Написать программу,которая вычисляет среднее арифметическое ненулевых элементов ...

August 2022 1 2 Report

Написать программу,которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива из 10 целых чисел. Помогите пожалуйста,плохо понимаю эти программы(((

Answers & Comments

mid64rus Var a:array [1..10] of integer;
i,count:integer;
s:real;
begin
....//тут ты заполняешь массив как тебе надо
s:=0;
count:=0;
for i:=1 to 10 do begin
if a[i]<>0 then begin //если элемент ненулевой то
s:=s+s; //суммируем их и увеличиваем счетчик на 1
count:=count+1;
end;
end;
s:=s/count;
writeln('Среднее значение=', s:0:0);
end.

1 votes Thanks 7

Answers & Comments

pomogite pozhalujsta reshit test6dd3dac400c7416aa8f166a063f17882 82484

pochemu mnogie selhozproizvoditeli finansiruyut issledovaniya v oblasti fotosintez

al4hno3alno33no2h2o sostavit balans

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

Helpful Links

Helpful Social