Question

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

Answer 1

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.