1) Написать программу, генерирующую случайное целое число от -1000 до 1000. Пользователь должен вводить

целые числа, пока не «угадает» это число. Каждый раз,

при вводе, программа сообщает, что «загаданное»

больше или меньше, чем введенное.

2)Пользователь вводит символ, а затем 10 слов, вывести

эти слова через указанный символ (и пробелы) в:

a. прямом порядке через слово;

b.Первые 5 слов в обратном порядке.

3)Пользователь вводит 10 чисел. Вывести *

текущее» (Когда пользователь вводит первое число,

будет​

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.

program laba;

{$APPTYPE CONSOLE}

uses

 SysUtils,

 windows;

var

 a:array[1..15] of integer;

 i,imax,x:integer;

begin

SetConsoleoutputCP(1251);

 for i:=1 to 15 do

begin

writeln('Введите',i,'-й элемент');

readln(a[i]);

end;

imax:=1;

for i:=2 to 15 do

if a[i]>a[imax] then imax:=i;

x:=a[15];

writeln('максимальное число = ',a[imax],' его индекс= ',imax);

if imax=15 then write('Он последний, обмена нет');

else

  begin

  x:=a[imax];

  a[imax]:=a[15];

  a[15]:=x;

  writeln('Обмен максимального и последнего:');

  for i:=1 to 15 do

  write(a[i]:6:3,' ');

  end;

readln;

end.

Объяснение: