Поиск суммы минимального и максимального из трех введенных чисел

@Serheo666 · Регистрация: 23.03.2011

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

Составить программу поиска суммы минимального и максимального из трех введенных чисел.

@nuHrBuH · 25.03.2011, 07:51

Pascal

uses wincrt;
var
  x : array[1..100] of integer;
  i, n : byte;
  min,y, max : integer;
 
begin
  write('kol. chisel : '); readln(n);
  writeln('vvedite eti chisla : ');
 
  for i:=1 to n do
    read(x[i]);
 
  min := x[1];
  max := x[1];
 
  for i:=1 to n do
     begin
         if min > x[i]
            then
                min := x[i];
         if max < x[i];
            then
                max := x[i];
     end;
  y := min + max;
  writeln('sum = ',y);
end.

@Puporev · 25.03.2011, 08:28

Сообщение от Serheo666

из трех введенных чисел.

Pascal

if x>y then mx:=x else mx:=y;
if z>mx then mx:=z;
if x<y then mn:=x else mn:=y;
if z<mn then mn:=z;
s:=mn+mx;

@Serheo666 · 25.03.2011, 17:02 **[ТС]**

Переделайте пожалуйста чтобы заработала в паскале из за i, n : byte; этой строчки неработает

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
		1
	Поиск суммы минимального и максимального из трех введенных чисел 25.03.2011, 03:45. Показов 2804. Ответов 3 Метки нет (Все метки) Составить программу поиска суммы минимального и максимального из трех введенных чисел. 0

@Serheo666 3 / 3 / 0 Регистрация: 23.03.2011 Сообщений: 68
	25.03.2011, 17:02 [ТС]	4
	Переделайте пожалуйста чтобы заработала в паскале из за i, n : byte; этой строчки неработает 0

Опции темы

Поиск суммы минимального и максимального из трех введенных чисел

Решение