Вопрос № 81568: Здравствуйте. Помогите пожалуйста с решением задачи. В заданном векторе необходимо определить количество элементов, значения которых больше среднего арифметического всех его элементов.
Я не понимаю как определить количество элементов. У меня выво...Вопрос № 81638: О Великие, мне нужна ваша помощь.
Дан массив чисел длинной N, в этом массиве найти наибольшее и наименьшее значение. Переставить наименьшее значение на первую позицию, а наибольшее - на последнее....
Вопрос № 81.568
Здравствуйте. Помогите пожалуйста с решением задачи. В заданном векторе необходимо определить количество элементов, значения которых больше среднего арифметического всех его элементов.
Я не понимаю как определить количество элементов. У меня выводится общее количество, а вот кол-во которое больше среднего арифметического не получается.
Заранее спасибо.
Приложение:
Отправлен: 08.04.2007, 13:30
Вопрос задал: Мирослав (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Сарумян
Здравствуйте, Мирослав!
Здесь то надо увеличивать счетчик элементов
for i:=1 to n do
if m[i]>s then
begin
writeln('ZNACHENIE BOLSE S ',m[i]);
kol:=kol+1;
end;
Только до этого обнулите его.
--------- Пришел, увидел, развернулся и ушел...
Ответ отправил: Сарумян (статус: 3-ий класс)
Ответ отправлен: 08.04.2007, 13:38
Вопрос № 81.638
О Великие, мне нужна ваша помощь.
Дан массив чисел длинной N, в этом массиве найти наибольшее и наименьшее значение. Переставить наименьшее значение на первую позицию, а наибольшее - на последнее.
Отвечает: Устинов С.Е.
Здравствуйте, Серов Алексей Евгеньевич!
Вот код:
const n=10;
var a:array[1..n] of integer;
i,min,max,t:integer;
begin
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
min:=1; max:=1;
for i:=2 to n do
begin
if a[i] > a[max] then max:=i;
if a[i] < a[min] then min:=i;
end;
- ................. -
end.
А вместо - ............... - вставляете один из вариантов (в зависимости от трактовки задания)
1. Если нужно просто первому элементу присвоить значение минимального, а второму присвоить значение максимального, тогда вставляем
a[1]:=a[min];
a[n]:=a[max];
2. Если нужно обменять местами первый с минимальным элемены, последний с максимальным то вставляете:
t:=a[1]; a[1]:=a[min]; a[min]:=t;
t:=a[n]; a[n]:=a[max]; a[max]:=t;
