Определить минимальное значение среди чисел и вывести его на экран - Pascal ABC

Формулировка задачи:

Помогите пожалуйста. Сгенерировать k случайных чисел из диапазона от a до b (a и b ввести с клавиатуры). Определить минимальное значение среди них и вывести его на экран. Переменную k задать с клавиатуры.

Код к задаче: «Определить минимальное значение среди чисел и вывести его на экран - Pascal ABC»

textual
var k,a,b,x,y,i:integer;
begin
randomize;
writeln ('k,a,b');
readln (k,a,b);
y:=b;
for i:=1 to k do begin
x:=a+random(b);
if x<y then y:=x;
end;
writeln (y);
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ