1) задан массив из n чисел. найти среднее арифметическое. 2) найти номер наибольшего элемента массива размером мхn.

1) задан массив из n чисел. найти среднее арифметическое. var a: array[1..99999] of integer;   i,n,summa: integer;   srednee: real;   begin  writeln('введите размерность массива'); readln(n);   for i: =1 to n do  begin  writeln('введите ',i,' элемент массива: '); readln(a[i]);   summa+=a[i];   end;   srednee: =summa/n;   writeln('среднее арифметическое: ',srednee);   end. 2) найти номер наибольшего элемента массива размером мхn.var a: array[1..99999, 1..9999] of integer;   m,n,i,i2,max,n1,n2: integer;   begin  writeln('введите длину массива m: '); readln(m);   writeln('введите ширину массива n: '); readln(n);   for i: =1 to m do  begin  for i2: =1 to n do  begin  writeln('введите элемент массива: '); readln(a[i,i2]);   if a[i,i2]> max then  begin  max: =a[i,i2];   n1: =m;   n2: =n;   end;   end;   end;   writeln('номер максимального элемента массива: ', n1, ' столбец ',n2, ' строка');   end.

а)x = 5, y =  15, z = 5

б) x = 13, y = 13, z = 4

Объяснение: