Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Найти медиану в массиве 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.