Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
я пишу чтобы эту валюту зароботать
Объяснение:
var a: array [1..10] of integer;
min,max,i,c,b: integer;
begin
read(c,b);
randomize;
for i : = 1 to 10 do
a[i]: = random(b) -c+1;
min: =1;
max: =1;
for i: = 1 to 10 do
if a[min]> a[i] then min: =i;
if a[max]< a[i] then max: =i;
end;
writeln(a[min], a[max]);
end.
такая
естественная
красота
самая
теплая
: dd что есть, то есть
Популярные вопросы