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

2

Ответы и объяснения

2014-04-11T16:18:38+00:00
Пишу на 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
спасибо большое а можно на паскале 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
не то сорри
2014-04-11T17:45:43+00:00
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 (0<B<100): ');    readln(b);  until (n in [1..nmax]) and (b in [1..99]);  writeln('Массив A1');  for i:=1 to n do  begin    a1[i]:=random(99);    write(a1[i]:4);    if a1[i]>b 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.