Определить, какое число из данных трех не является ни максимальным и ни минимальным

@Pew_pew · Регистрация: 07.11.2013

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

Определить, какое число из данных трех не является ни максимальным и ни минимальным, используя в качаестве подпрограмм процедуры max и min.

Добавлено через 13 минут
Мне тут не помогут?

Добавлено через 4 часа 29 минут
Блин народ, гуру паскаля помогите! например среди цифр 1 5 10
какое их этих цифр ни max, ни min и покажите его. Запишите только это в виде процедур. Спасайте я нуб в паскале

@pahuss · 07.12.2013, 20:37

Pascal

program school;
uses crt;
 
procedure mini(a:array [1..3] of integer; var min: integer);
var i: byte;
begin
 min:=a[1];
 for i:=2 to 3 do begin
 if min>a[i] then min:=a[i] end;
end;
 
procedure maxi(a:array [1..3] of integer; var max: integer);
var i: byte;
begin
 max:=a[1];
 for i:=2 to 3 do begin
 if max<a[i] then max:=a[i] end;
end;
 
var a: array [1..3] of integer;
    i: byte;
    min, max, med: integer;
    
begin
writeln('Ââåäèòå òðè ÷èñëà');
for i:=1 to 3 do readln(a[i]);
 mini(a,min);
 maxi(a,max);
med:=a[1];
for i:=1 to 3 do begin
 if (med = min) or (med = max) then
 med:=a[i+1]; end;
 writeln('×èñëî íå ìèíèìàëüíîå è íå ìàêñèìàëüíîå ðàâíî ',med);
end.

@Pew_pew 0 / 0 / 1 Регистрация: 07.11.2013 Сообщений: 62
		1
	Определить, какое число из данных трех не является ни максимальным и ни минимальным 05.12.2013, 22:35. Показов 1576. Ответов 1 Метки нет (Все метки) Определить, какое число из данных трех не является ни максимальным и ни минимальным, используя в качаестве подпрограмм процедуры max и min. Добавлено через 13 минут Мне тут не помогут? Добавлено через 4 часа 29 минут Блин народ, гуру паскаля помогите! например среди цифр 1 5 10 какое их этих цифр ни max, ни min и покажите его. Запишите только это в виде процедур. Спасайте я нуб в паскале 0

	07.12.2013, 20:37

Опции темы

Определить, какое число из данных трех не является ни максимальным и ни минимальным

Решение