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.