Не очень хорошо сформулирован вопрос.Эта программа генерирует 3 числа от -9 до 9 и выводит сначала все числа,затем наибольшее и наименьшее.
var a,b,c : Integer;
begin
Randomize;
a:=random(19)-9;
b:=random(19)-9;
c:=random(19)-9;
Writeln(a+' '+b+' '+c);
if((a>b)and(a>c)) then
Writeln('Наибольшее '+a)
else if(b>c) then
Writeln('Наибольшее '+b)
else
Writeln('Наибольшее '+c);
if((a<b)and(a<c)) then
Writeln('Наименьшее '+a)
else if(b<c) then
Writeln('Наименьшее '+b)
else
Writeln('Наименьшее '+c);
end.
В некоторых странах слишком холодно зимой, чтобы ездить на велосипедах → они там непопулярны и запросов меньше.
В других странах у людей расстояния большие → велосипед неудобен.
В третьих странах уровень дохода слишком низок. Люди пользуются преимущественно велосипедами, но денег на интернет и компьютеры у них нет, они напрямую покупают в обычных магазинах.
В четвертых уровень дохода высок и там тепло и → люди тщательно подбирают "продвинутые" модели велосипедов в интернете - запросов больше.
<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>
1) 75
2)226
3)695
Жду лайкосики и удачив информатике))