Написать программы:1. Даны данные температуры (отриц. и полож.) за 10 дней. найти сколько...

Question

Написать программы:1. Даны данные температуры (отриц. и полож.) за 10 дней. найти сколько дней температура была больше 0.2. Дана скорость чтения 10 пятиклассников (двухзнач.)Найти среднюю скорость чтения в 5 классе.
ПАСКААЛЬ!

Answer 1

Д е р ж и и и и и и и и и и и и и)))

---

---

Comments

Крайне нерационально. Гораздо удобнее использовать циклы

---

var i,count: integer;
t: real;
begin
for i := 1 to 10 do
begin
write('t',i,'= ');
readln(t);
if t > 0.2 then inc(count);
end;
write('Температура была выше 0.2 градусов ',count,' дней.');
end.

---

Например