Question

Определить минимальное время прохождения 100-метровой дистанции 25 спортсменов, если время каждого вводится случайными числами и находится в диапазоне от 8 до 65 секунд. Информатика 9 класс PASCAL.

Answer 1

Вариант со случайными числами

var i,min,k:integer;

begin

min:=100;

randomize;

for i:=1 to 25 do begin k:=random(8,65); if k<min then min:=k; end;

writeln(min);

end.

Вариант с вводом чисел с клавиатуры

var i,min,k:integer;

begin

min:=100;

for i:=1 to 25 do begin readln(k); if k<min then min:=k; end;

writeln(min);

end.