Задание 1. “Ералаш” Прочитай небылицу. Слова первого столбика, выделенного курсивом, не перемещаем. Перемещаем вторую часть построчно, чтобы получилось стихотворение.
Например :
Злой кабан точил клыки.
Пароход ….
Злой кабан сидел на ветке.
Пароход томился в клетке.
Соловей точил клыки.
Дикобраз давал гудки.
Кошка физику учила.
Маша хвостик свой ловила.
Буратино шил себе штаны.
Портной все поел блины.
Еж накрыт к обеду был.
Чиж усами шевелил.
Рак летал под облаками.
Стол гонялся за мышами.
Чайник прыгал во дворе.
Мальчик булькал на костре.
var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
begin
Read(t);
s:=s+t
end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.
Пример решения
Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4