Определить сумму максимума и минимума последовательности.

@Vampire110 · Регистрация: 18.05.2011

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

Задана последовательность вещественных чисел. Длина последовательности вводится пользователем. Определить сумму максимума и минимума последовательности.

@КонецСвета · 21.11.2011, 22:33

Pascal

uses crt;
var n,i,sum,max,min,a: integer;
begin
writeln ('Укажите размер последовательности');
readln (n);
write ('Введите число ');
readln(a);
max:=a; min:=a;
for i:=2 to n do
    begin
    write ('Введите число ');
    readln(a);
    if a>max then max:=a;
    if a<min then min:=a;
    end;
writeln ('Сумма=',min+max);
end.

@Vampire110 17 / 17 / 0 Регистрация: 18.05.2011 Сообщений: 33
		1
	Определить сумму максимума и минимума последовательности. 21.11.2011, 22:02. Показов 3396. Ответов 1 Метки нет (Все метки) Задана последовательность вещественных чисел. Длина последовательности вводится пользователем. Определить сумму максимума и минимума последовательности. 1

	21.11.2011, 22:33

Определить сумму максимума и минимума последовательности.

Решение