Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.