a: array[0..9] of integer; i,y,min: integer; beginrandomize(); for i: =0 to 9 dobeginy: = random(10); a[i]: = y; end; for i: =0 to 9 do write(a[i],' '); writeln(' - десять випадковых чисел'); min: =a[0]; for i: =1 to 9 doif a[i]< min then min: =a[i]; writeln(min, ' - минимальне число.');
end.
Поделитесь своими знаниями, ответьте на вопрос: