{PascalABC}
Program Puzzle;
var
R,day:integer;
week:array[1..7] of string;
i:integer;
s:string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(200) end;
writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');
writeln('Удвойте этот номер');
writeln('Увеличьте результат на 5');
writeln('Умножьте полученное число на 5');
writeln('Теперь то, что получилось, умножьте на 10');
writeln('Введите полученный результат'); readln(R);
day:= round((R-250)/100);
writeln('');
case day of
1..7: writeln(' Вы задумали ',week[day]);
else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')
end;
writeln('');
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(26,55,85); a.Println;
a.OrderByDescending(t->t).Println;
Writeln('Средний вес ученика ',a.Average:0:1)
end.
Пример
83 69 65 63 57 57 78 76 82 81 56 61 64 82 77 82 81 65 79 63 65 67 73 82 65 74
83 82 82 82 82 81 81 79 78 77 76 74 73 69 67 65 65 65 65 64 63 63 61 57 57 56
Средний вес ученика 71.0