Помогите нужен прог.паскаль!!!!!!!!!!!!!! Дан одномерный массив A[n]. Найти среднее...

Question

Помогите нужен прог.паскаль!!!!!!!!!!!!!!
Дан одномерный массив A[n].
Найти среднее значение массива и подсчитать количество элементов, значения которых равны квадратному корню из среднего.

Answer 1

Const
N = 30;
Var
A:array[1..N] of integer;
i:integer;
C,K,Q:real;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random(21);
    Write(A[i],' ');
    C:=C+A[i];
    End;
WriteLn('Среднее арифметическое элементов массива равно: ',C);
C:=sqrt(C);
K:=0;
For i:= 1 to N do
    if A[i]=C then K:=K+1;
WriteLn('Кол-во элементов, равных ',C,' равно ',K);
End.

Comments

Var
A: array[1..2000] of integer;
i,n:integer;
SR: real;(* Сумма и среднее значение *)
begin
read(n);
for n:=1 to n do begin
A[n]:=random(1,200);Write(A[n],' ');
SR:=SR+A[n];
end;
SR:=SR/n;
WriteLn;
WriteLn('SR = ',SR:10:2);
i:=0;
for n:=1 to n do begin
if A[n]=SQRT(SR)then i:=i+1;
end;
Writeln('k = ',i);
End.

---

k -почему.(сразу говорю учусь)

---

"подсчитать количество элементов", не играет роли, что в кавычках написано. ' k = ' - это просто текст сообщения, можно заменить на 'Кол-во таких-то чисел'

---

Writeln('SR=', SR:10:2); а еслти так(прости), то будет ошибка

---

Компилятор есть под рукой?

---

нет

---

Скачать не можешь?

---

попробую

---

Рекомендую PascalABC.net ))

---

паскаль есть