Решить задание по массиву.

Question

Решить задание по массиву.

---

Comments

Вообще эти здания делаются не через массив. А через последовательности

---

Сможете помочь, пожалуйста?

---

Язык какой? И делать через массив все-таки? Массивы не проходят обячно в 9 классе

---

Паскаль. Да, это точно массив. У нас информационный класс, а мне пришлось много пропустить, поэтому вникнуть не могу.

---

Сейчас

---

Жду.

---

Вообще это нужно делать просто циклом While и массив не нужен. Но смотри, как хочешь

---

Дело в том, что мы это на листках будем сдавать. Такая вот тупость.

Answer 1

Const
n=300;
var
a:array[1..n]of integer;
i,k:integer;
s:real;
begin
i:=1;
readln(a[i]);
     while a[i]<>0 do
        begin
            if (abs(a[i])>=100)and(abs(a[i])<=500)then<br>                    begin
                         k:=k+1;   
                         s:=s+a[i];
                    end;
             readln(a[i]);
       end;
if k<>0 then
  writeln('Sr = ',s/k:4:2)
else
  writeln('Net');
end.
      

Comments

Спасибо вам огромное.

---

Хорошо