Вывести информацию о наибольшем, наименьшем и наименее удаленном от среднего арифметического членах последовательности вещественных чисел.
uses crt;
var a:array [1..100] of integer;
i,n,max,min,k:integer;
begin
clrscr;
writeln ('Vvedite razmernostb massiva');
readln(n);
for i:=1 to n do begin
a[i]:=random(10);
writeln (a[i]:3);
if a[i]>max then max:=a[i];
end;
writeln;
writeln ('maksimalbnui element massiva=', max);
writeln ('nomera maksimalbnux elementov');
for i:=1 to n do begin
if a[i]=max then begin k:=k+1;
writeln ('a[',i,']=');
end;
end;
writeln ('kolli4estvo maksimalbnux elementov=',k);
readln;
end.
Минимум ищешь также как и максимум, можно в том же цикле, только другую переменную, естественно..
Среднее арифметическое - сумма всех элементов, поделенная на их количество.. как искать наиболее близкий еще не придумала.. Наверно, вычитать элементы из среднего и смотреть, где разность по модулю меньше..
Да, по-поводу максимума, может лучше изначальное значение переменной max задать равным a[1], а то если все элементы массива будут отрицательными, то отработает неправильно..