Помогите с программами, пожалуйста. Pascal. 1) Из трех, задаваемых с клавиатуры чисел a, b, c, найти сумму наименьшего и наибольшего из этих чисел. 2) Найти среднеарифметическую температуру воздуха за N дней. Число дней и темпе...
Помогите с программами, пожалуйста. Pascal.
1) Из трех, задаваемых с клавиатуры чисел a, b, c, найти сумму наименьшего и наибольшего из этих чисел.
2) Найти среднеарифметическую температуру воздуха за N дней. Число дней и температуру воздуха каждого дня задать самостоятельно.
Гость
Ответ(ы) на вопрос:
ГостьПервая задача(я проверил программу, все норм работает)
var a,b,c,max,min,S:real;
begin read(a,b,c);
if a>b then if a>c then max:=a
else max:=c
else if b>c then max:=b
else max:=c;
if a0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.
Не нашли ответ?
Похожие вопросы