Найти медиану в массиве 15 случайных чисел от 0 до 10 в паскале, спс
Найти медиану в массиве 15 случайных чисел от 0 до 10 в паскале, спс
Гость
Ответ(ы) на вопрос:
Гостьvar
mas:array[1..16] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 15 do
begin
mas[i]:=random(11);
write (' ',mas[i],' ');
end;
writeln;
for k:=1 to 15 do
begin
for i:= 1 to 15 do
if mas[i]>mas[i+1] then swap(mas[i],mas[i+1]);
end;
writeln ('Медиана массива равна ',mas[9]);
end.
Не нашли ответ?
Похожие вопросы