Помогите решить, пожалуйста! В шеренге спортсмены стоят по росту. Задать с помощью...

Question

Помогите решить, пожалуйста!
В шеренге спортсмены стоят по росту. Задать с помощью генератора случайных чисел номер спортсмена - целое число от 1 до 9, определить вид спорта: 1,2,9 - баскетбол, 3,4,5 - бег, 6,7,8 - штанга.

Answer 1

Const N = 9;
var a: array[1..9] of integer;
i, num: integer;
rez: string;
begin
for i := 1 to N do begin
a[ i ] := random(9)+1;
write(a[ i ], ' ');
end;
writeln();
write('Введите номер спортсмена: ');
readln(num);
if (num = 1) OR (num = 2) OR (num = 9) then rez := 'баскетболист';
if (num = 3) OR (num = 4) OR (num = 5) then rez := 'бегун';
if (num = 6) OR (num = 7) OR (num = 8) then rez := 'штангист';
writeln('Данный спортсмен - ', rez);
end.