Дан массив найдите среднее арифметическое всех чисел меньше заданного

Question

Дан массив найдите среднее арифметическое всех чисел меньше заданного

Answer 1

Пишу на QBasic
CLS
INPUT N
...
Массив создан и заполнен
...
FOR I = 1 TO K (Кол-во элементов массива)
IF I < N THEN
  A=A+I
  B=B+1
END IF
NEXT I
C=A/B
PRINT C

Comments

спасибо большое а можно на паскале ABC net

---

var I,N,A,B,C,K:integer;
...
Массив создан и заполнен
...
FOR I = 1 TO K (Кол-во элементов массива)
IF M(I) < N THEN
A=A+I
B=B+1
END IF
NEXT I
C=A/B
PRINT C

---

не то сорри

Answer 2

Uses  crt;const  nmax=100;var  a1,a2: array[1..nmax] of integer;  n,i,b,k,s: integer;begin  randomize;  clrscr;  repeat    write('Введите размер массива n (n in [1..',nmax,']): ');    readln(n);    write('Введите число B (0b then    begin      inc(k);      a2[k]:=i;      s:=s+a1[i];    end;  end;  writeln;  writeln('Среднее элеметов, больших B = ',s/k:0:2);  writeln('Массив A2:');  for i:=1 to k do write(a2[i]:4);  readln;end.