В результате выполнения этой программы будет напечатан 0
Если трассировать программу по шагам то мы увидим что s меняется в цикле вот так
s1=-4
s2=12
s3=-24
s4=24
Начиная с 5 шага получаем (5-5)*s т.е 0 и далее чтобы мы на 0 не умножали так и будет 0
var
sum, temp, i: integer;
sr: real;
d_n: array[1..7] of string;
begin
sum := 0;
d_n[1] := 'Понедельник>>'; d_n[2] := 'Вторник>>'; d_n[3] := 'Среда>>'; d_n[4] := 'Четверг>>'; d_n[5] := 'Пятница>>'; d_n[6] := 'Суббота>>'; d_n[7] := 'Воскресенье>>';
for i := 1 to 7 do
write(d_n[i]);
readln(temp);
sum += temp;
end;
writeln(sum / 7);
end.
Ответ:
60.....................