В библиотеке находится N книг. Дано количество страниц в каждой книге. Учёный Николай Николаевич пришёл в библиотеку почитать. Если книга очень толстая (больше 1000 страниц), то Николай Николаевич делит количество страниц пополам нацело и прочитывает только первую половину книги. Если книга обычная ( страниц меньше или равно 1000), то Николай Николаевич прочитывает всю книгу кроме последних 10 страниц. Самую маленькую книгу из всех Николай Николаевич читать не стал вовсе. Если книг минимальной толщины несколько, то они все не будут прочитаны. Вопрос: сколько страниц прочитает Николай Николаевич в библиотеке? Формат входных данных С клавиатуры вводится 1 ≤ N ≤ 10000. Далее N целых чисел от 10 до 10000, каждое с новой строки. Формат выходных данных .Одно число - ответ.
Надеюсь, что тебе нужно на паскале. Если нет, то пиши, я переделаю на любой другой.
Первая задача:
var digs:String;
sum, sr:Real;
i:Integer;
begin
writeln('Введите 5 чисел через пробел');
readln(digs);
digs := digs.Replace(' ', '');
sum := 0;
for i := 1 to 5 do
sum := sum + strToInt(digs[i]);
sr := sum / 5;
writeln('Сумма: ' + sum);
writeln('Сред. арифметическое: ' + sr);
end.
Ввод:
1 2 3 4 5
Вывод:
Сумма: 15
Сред. арифметическое: 3
Вторая задача:
var i:Integer;
begin
for i := 0 to 10 do
writeln(i + '^3=' + i**3);
end.
Вывод:
0^3=0
1^3=1
2^3=8
3^3=27
4^3=64
5^3=125
6^3=216
7^3=343
8^3=512
9^3=729
10^3=1000