Дан массив найдите среднее арифметическое всех чисел меньше заданного
Дан массив найдите среднее арифметическое всех чисел меньше заданного
Гость
Ответ(ы) на вопрос:
ГостьПишу на 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
Гость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.
Не нашли ответ?
Похожие вопросы