Question

Помогите с программами, пожалуйста. Pascal.

1) Из трех, задаваемых с клавиатуры чисел a, b, c, найти сумму наименьшего и наибольшего из этих чисел.

2) Найти среднеарифметическую температуру воздуха за N дней. Число дней и температуру воздуха каждого дня задать самостоятельно.

Answer 1

Первая задача(я проверил программу, все норм работает)
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 a<b then if a<c then min:=a
else min:=c
else if b<c then min:=b
else min:=c;
S:=max+min;
writeln(S:2:2);
end.

Вторая задача(я проверил программу, все норм работает)
var t,S,N:integer;
R:real;
begin read(N);
S:=0;
read(t);
while t<>0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.

Answer 2

это задача на последовательность)поэтому вводишь данные таким образом: число дней, температура за первый день, температура за второй день, ..., 0

Answer 3

последовательность должна закончиться на 0)чтобы выйти из цикла, а то у тебя цикл будет выполнять бесконечно и никаких действий не произойдет)

Answer 4

это я про вторую задачу тебе говорю)