Помогите пожалуйста с паскалем! _______________________ Случайным образом задан массив из...

Question

Помогите пожалуйста с паскалем!
_______________________
Случайным образом задан массив из 10 элементов. Посчитать среднее арифметическое его элементов. Сформировать второй массив из элементов первого, больших, чем среднее арифметическое элементов первого массива.

Answer 1

Const
   N = 10;
Var
   A,B:array[1..N] of integer;
   i,k:integer;
   Sr:real;
Begin
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    Sr:=Sr+A[i]
    End;
Sr:=Sr/N;
WriteLn;
WriteLn('Среднее арифметическое: ',Sr);
k:=0;
Write('Новый массив:');
For i:= 1 to N do
    if A[i]>Sr then
       Begin
       k:=k+1;
       B[k]:=A[i];
       Write(' ',B[k])
       End;
End.

Comments

а можно сделать без константы? мы еще такого не проходили

---

Вообще, это должны проходить на 1-2 занятии... Можно - убрать первые две строчки, и везде вместо N написать 10

---

спасибо большое!!!