Определить процедуру p (n, max, min), n - натуральное число

@N1KOL@Y · Регистрация: 24.02.2013

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

Определить процедуру p (n, max, min), n - натуральное число, в теле которой вводится последовательность вещественных чисел x 1 , x 2 , ... x n и выходные параметры max и min равны соответственно наибольшему и наименьшему членам этой последовательности.

@BaboshinSD · 20.03.2013, 17:37

N1KOL@Y, вот

Pascal

var
  Max, Min: integer;
 
procedure MaxMin(s: string);
begin
  Max := StrToInt(s[1]); 
  for var i := 1 to s.Length do
    if StrToInt(s[i]) > StrToInt(s[Max]) then Max := StrToInt(s[i]);
  
  Min := StrToInt(s[1]);
  for var i := 1 to s.Length do
    if s[i] < s[Min] then Min := StrToInt(s[i]);
  
  WriteLn('Максимальное значение: ',Max);
  WriteLn('Минимальное значение: ',Min);
end;
 
begin
  MaxMin('12345');
end.

@N1KOL@Y 0 / 0 / 2 Регистрация: 24.02.2013 Сообщений: 47
		1
	Определить процедуру p (n, max, min), n - натуральное число 20.03.2013, 15:41. Показов 1236. Ответов 1 Метки нет (Все метки) Определить процедуру p (n, max, min), n - натуральное число, в теле которой вводится последовательность вещественных чисел x 1 , x 2 , ... x n и выходные параметры max и min равны соответственно наибольшему и наименьшему членам этой последовательности. 0

Опции темы

Определить процедуру p (n, max, min), n - натуральное число

Решение