Сформировать массив, подсчитать количество элементов не превосходящих заданного числа...

Question

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

Comments

в массиве фиксированное кол-во элементов? или оно тоже задается переменной?

---

массив вроде на любое кол-во элементов

---

я сделаю на примере с 20тью

---

спасибо

---

не известно имя N for i:=1 to n do в этой строке

Answer 1

Var a:array [1..20] of integer;
s,k,i:integer;
begin
k:=0; s:=0;
for i:=1 to n do
read(a[i]);
readln(n);
for i:=1 to 20 do
if a[i]<=n then begin<br>k:=k+1;
s:=s+a[i];
end;
writeln('Кол-во:',k);
writeln('Средн.арифм.:',s/k)
end.

Comments

не известно имя N for i:=1 to n do в этой строке

---

ой, да, извини, по привычке, исправь там n на 20

---

readln(n); неизвестно имя n Если вместо n ставлю 20 то нельзя считывать данные этого типа