var n,i,a,ko,kp,k1,k2,min,max,k:integer;
begin
write('Введите количество чисел в последовательности (n>0) ');
readln (n);
a:=random(39)-15;
min:=a;
max:=a;
write ('Последовательность ');
for i:=1 to n do
begin
if a=0 then k:=1;
if a<0 then ko:=ko+1;
if a>0 then kp:=kp+1;
if a mod 2 = 0 then k2:=k2+1 else k1:=k1+1;
if a<min then min:=a;
if a>max then max:=a;
write (a,' ');
a:=random(39)-15;
end;
writeln;
writeln ('Количество отрицательных чисел ko = ',ko);
writeln ('Количество положительных чисел kp = ',kp);
writeln ('Количество чётных чисел k2 = ',k2);
writeln ('Количество нечётных чисел k1 = ',k1);
writeln ('Минимальное число min = ',min);
writeln ('Максимальное число max = ',max);
if k=1 then writeln ('В последовательности присутствовал 0')
end.
Как по мне, то самым важным в таких олимпиадах это буквально за 3-4 дня до неё взять задания, которые были в году и попробовать пройти их. Понять алгоритм и что где используется. Так же очень важно сразу узнать на каком языке будет происходить олимпиада, иначе может получится ситуация которая была у меня(Я хорошо знал JavaScript, а олимпиада на паскале, и даже зная алгоритм, я не смог решить задачи).
Так же, если есть возможность то познакомится с кем то, кто ещё с тобой будет на олимпиаде, это касается всех олимпиад. Это очень сильно добавляет уверенности и в некоторых моментах вы можете друг другу.
Рассказать как устроена... Тебя приведут в зал с компами, скажут садится, скинут на рабочий стол файл с заданиями, и скажут время пошло. А как сдавать работу, бывает по разному. Некоторые делают это через сайт. т.е. Тебе нужно будет закинуть свою работу на их сайт, при этом войти с аккаунта, пароль и логин к которому они тебе дадут в конце олимпиады. Ну а некоторые просто говорят оставь файл на рабочем столе, назови его [Имя Фамилия Учебное заведения] и иди.