Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:
var n, i, x: integer;
begin
randomize;
n : = random (7) + 5;
for i : = 1 to n do begin
x : = random (100) - 50;
write (x: 5)
end;
readln
end.
отметь как 5 звезд, нажми на и выбери как лучший ответ!
крик
program xxx; var a, b, min : integer; begin write('введите число а=');
readln(a);
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
Популярные вопросы