Массивы, Найти мах и мин элементы.Определить кол-во элементов. Опции

[Beseech]

В одномерном массиве из N элементов найти максимальный Max и минимальный Min элементы. Заменить все элементы,меньшие значения (Max-Min)/2 нулями. Определить количество таких элементов.

Сообщение отредактировано: Beseech - 11.05.2007 11:02

[Адель]

Заменить все элементы,меньшие значения (Max-Min)/2 нулями. Определить количество таких элементов.

k;=0;
for i:=1 to N do
if a[i]< ((Max-Min)/2) then
begin
 a[i]:=0;
 inc(k);
end;

[Beseech]

Адель можно попросить написать 1 раз полное решение задачи такого типа,я вообще ненаю почему мне такие задачи задали,нам не обьясняли как их решать! 1 напиши плиз полностью а с остальными думаю разберусь)))
Заранее спс

[Lapp]

Не годится.
Одномерный массив N - не добавляет информации, да и вообще не по-русски..

[Beseech]

Ужас)))
Какие вы строгие)
Щас че нить придумаю)

Добавлено через 6 мин.
Уважаемый администратор а теперь вы можете открыть ответы в моих темах?
Мне задачи надо сделать

[Beseech]

Адель плиз напиши 1 задачку такого типа полностью,я просто ненаю как такие решать...че нам вообще их задали,непойму
Заранее благодарен

[Артемий]

var
arr: array[1..100] of Integer;
k,n,max,min,i: Integer;
begin
k:=0;
writeln('Enter a size of array:');
readln(n);

for i:=1 to n do readln(arr[i]);

min:=arr[1]; max:=arr[1];

for i:=1 to n do if (arr[i]>max) then
 max:=arr[i] else if (arr[i]<min) then
 min:=arr[i];

for i:=1 to n do
if arr[i] < ((Max-Min)/2) then
begin
 arr[i]:=0;
 inc(k);
end;

writeln(k);
readln
end.