Помощь - Поиск - Пользователи - Календарь
Полная версия: Одномерный массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Demian
Вывести информацию о наибольшем, наименьшем и наименее удаленном от среднего арифметического членах последовательности вещественных чисел.


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], а то если все элементы массива будут отрицательными, то отработает неправильно..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.