В одномерном массиве из N элементов найти максимальный Max и минимальный Min элементы. Заменить все элементы,меньшие значения (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;
Адель можно попросить написать 1 раз полное решение задачи такого типа,я вообще ненаю почему мне такие задачи задали,нам не обьясняли как их решать! 1 напиши плиз полностью а с остальными думаю разберусь)))
Заранее спс
Не годится.
Одномерный массив N - не добавляет информации, да и вообще не по-русски..
Ужас)))
Какие вы строгие)
Щас че нить придумаю)
Добавлено через 6 мин.
Уважаемый администратор а теперь вы можете открыть ответы в моих темах?
Мне задачи надо сделать
Адель плиз напиши 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.