В электронную таблицу занесли данные олимпиады по математике.
В столбце A записан номер участника; в столбце B –номер школы; в столбце C –класс; в столбце D –набранные .
Всего в электронную таблицу были занесены данные по 1000 участникам.
Выполните задание.
Откройте файл с данной электронной таблицей task19-109.xls. На основании данных, содержащихся в этой таблице, ответьте на два во Сколько восьмиклассников набрали более ответ на этот во запишите в ячейку H2 таблицы.
2. Каков средний , полученный учениками школы №2? ответ на этот во запишите в ячейку H3 таблицы с точностью не менее двух знаков после запятой.
Полученную таблицу необходимо сохранить и сдать на проверку.
procedure AllMake(p:array of integer; var avg:real);
begin
avg:=p.Average;
for var i:=0 to p.Length-1 do
if p[i]<avg then p[i]*=10
end;
begin
var n:=ReadInteger('Количество элементов в массиве:');
var a:=ArrRandom(n,1,50);
Writeln('Исходный массив'); a.Println;
var av:real;
AllMake(a,av);
Writeln('Среднее арифметическое равно ',av);
Writeln('Результирующий массив'); a.Println;
WriteAllText('out.txt',a.JoinIntoString)
end.
Тестовое решение:
Количество элементов в массиве: 15
Исходный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10
Файл out.txt дан во вложении.
begin
writeln('на каком этаже живёт Миша?');
readln(a);
writeln('на каком этаже находится лифт?');
readln(b);
writeln('за сколько секунд Миша поднимается на этаж?');
readln(sek_m);
writeln('за сколько секунд лифт поднимается на этаж?');
readln(sek_l);
sek_m:=sek_m*a-sek_m;
writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.');
sek_l:=(sek_l*b+sek_l*a)-sek_l;
writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.');
if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени')
else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому')
else writeln('Мише быстрее подняться на лифте');
end.