program nnn;
var
a:array[1..30] of integer;
kol,sum,i: integer;
st: real;
begin
writeln('Вводите температуру за 30 дней ноября');
for i:=1 to 30 do
begin
readln(a[i]);
if a[i]<0
then begin
sum:= sum + a[i];
kol:= kol + 1;
end;
end;
st:= sum / kol;
writeln('Средняя температура заморозков за ноябрь: ',st:0:1);
end.
Перевожу на русский.
Если а больше b,то d=a, если нет- d=b, .
У тебя а>b? Нет. Значит d=5; d=5-2=3.
Ответ d=3.
Program idinah;
var a, b: real;
begin
write('a, b = ');
readln(a,b);
writeln('Среднее арифметическое = ',(a+b)/2);
end.
Значения n и s после каждого прохождения циклом даны в приложении.
Ответ: 180