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.