Одномерный массив 12 элементов,случайные положительные и отрицательные. Найти элемент наиболее близкий к среднему значению(Паскаль

[1998y8m1d]

Одномерный массив 12 элементов заполнить случайными положительными и отрицательными значениями. Найти элемент, наиболее близкий к среднему значению всех элементов массива.

[ZX Spectrum-128]

К среднему какому?

[1998y8m1d]

среднему всех элементов массива, то бишь деление суммы всех элементов массива на их количество

[Helloween]

#include "stdio.h"
#include "stdlib.h"
#include "time.h"


#define a_size 12

int main()
{    
   int arr[a_size] = {0,}; 
   unsigned long seed = time(NULL);
   srand(seed);
   int sum = 0;
   for(int i = 0; i < a_size; i++)
   {
      arr[i] = rand() % 100;
      sum += arr[i];
      printf("%d ",arr[i]);
   }
   int med_ar = sum/a_size;
   printf("\nmed_ar:%d",med_ar);
   int delta = 100;
   int indx = 0;
   for(int i = 0; i < a_size; i++)
   {
       int t_delta = arr[i] >= med_ar ? arr[i] - med_ar : med_ar - arr[i];
       if(t_delta < delta)
       {
           delta = t_delta;
           indx = i;
       }
   }
   printf("\nval_indx:%d  val:%d\n",indx,arr[indx]);
   return 0;
}

[ZX Spectrum-128]

Одномерный массив 12 элементов заполнить случайными положительными и отрицательными значениями.

For i:=1 to 12 do
 A[i]:=randomrange(-100,100);

среднему значению всех элементов массива.

Sr:=0;
for i:=1 to 12 do
 Sr:=sr+a[i];
Sr:=sr/12;

[1998y8m1d]

сори, извините, не указал я что надо в паскале

[1998y8m1d]

Сообщение от ZX Spectrum-128

For i:=1 to 12 do
 A[i]:=randomrange(-100,100);

Sr:=0;
for i:=1 to 12 do
 Sr:=sr+a[i];
Sr:=sr/12;

а все вместе можете написать, а то я не очень понимаю этот паскаль