В массиве 60 вещественных чисел вычислить среднее значение.Через процедуру - Pascal ABC

Формулировка задачи:

ЧЕРЕЗ ПРОЦЕДУРУ///В массиве 60 вещественных чисел вычислить среднее значение.Разделить исходный массив на два, в первый с которой отобрать числа,больше среднего значения,во второй меньше.

Код к задаче: «В массиве 60 вещественных чисел вычислить среднее значение.Через процедуру - Pascal ABC»

textual
Const n=60;
Type mas=array[1..n] of real;
Var A,B,C:mas;
    i,m,k:integer;
    sr:real;
Procedure Pr(A:mas;n:integer;Var B,C:mas;Var m,k:integer;sr:real);
Var i:integer;
Begin
    m:=0;k:=0;
    For i:=1 to n do
     if A[i] > sr then
     Begin
       m:=m+1;
       B[m]:=A[i];
     End
     else if A[i] < sr then
     Begin
       k:=k+1;
       C[k]:=A[i];
     End;
End;
Begin
    sr:=0;
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random*10;
      write(A[i]:6:2);
      sr:=sr+A[i];
    End;
    sr:=sr/n;
    writeln;
    writeln('Среднее арифметическое = ',sr:0:2);
    Pr(A,n,B,C,m,k,sr);
    writeln('Первый массив');
    if m=0 then write('Нету элементов больше среднего арифметического')
     else 
     For i:=1 to m do
      write(B[i]:6:2);
    writeln;
    writeln('Второй массив');
    if k=0 then write('Нету элементов меньше среднего арифметического')
     else 
     For i:=1 to k do
      write(C[i]:6:2);
End.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ