Найти медиану

@safa · Регистрация: 20.03.2010

Author24 — интернет-сервис помощи студентам

Найти медиану пяти чисел. Помогите

@yanyk1n · 07.05.2010, 18:28

Pascal

uses crt;
const n=5;
var m:array[1..n]of integer;
i,j,b:integer;
 
begin
 clrcsr;
 write('Введите числа -> ');
 for i:=1 to N do read(m[i]);
 readln;
 for i:=N downto 1 do
 for j:=1 to i-1 do if m[j] > m[j+1] then
 begin
  b:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=b;
 end;
 writeln(m[(N div 2) + 1]);
 readln;
end.

@safa · 07.05.2010, 19:54 **[ТС]**

Спасибо!!!

@safa 15 / 15 / 10 Регистрация: 20.03.2010 Сообщений: 74
		1
	Найти медиану 07.05.2010, 17:02. Показов 3673. Ответов 2 Метки нет (Все метки) Найти медиану пяти чисел. Помогите 0

@safa 15 / 15 / 10 Регистрация: 20.03.2010 Сообщений: 74
	07.05.2010, 19:54 [ТС]	3
	Спасибо!!! 0

Найти медиану

Решение