Question

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

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
k:=k+1;
s:=s+a[i];
end;
writeln('Кол-во:',k);
writeln('Средн.арифм.:',s/k)
end.

Answer 2

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

Answer 3

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

Answer 4

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