Постройте алгоритм угадывания числа от 1 до 10. !

program linao; uses crt; const n = 20; var  x: array [1..n] of real;   i,k,j,sum: integer;   max, min,temp: real; begin  writeln('*** alphaues is ***');   for i: =1 to n do      begin          write('*');           for j: =1 to n*100000 do j: =j;       end;   writeln;   k: =0;   randomize;   sum: =0;   writeln('негативні елементи: ');   for i: =1 to n do      begin          x[i]: =random(101)-50;           if x[i]< 0 then              begin                  sum: =sum+i;                   writeln(i,'-й елемент, рівний ',x[i]);                   k: =1;               end;       end;   if k=0 then      writeln('немає таких елементів! '); end.

program mazoff1; uses crt; var  a,b: array [1..5] of integer; //массивы а и в  c: array [1..10] of integer; //массив с  i,j: integer; //счетчикиbegin  randomize;   j: =0;   for i: =1 to 5 do      begin          a[i]: =random(101)-50; //заполняем массивы          b[i]: =random(101)-50; //случайными числами от -50 до 50      end;       for i: =1 to 5 do      begin          write(a[i],' '): 5; //выводим массивы а и в в столбик          writeln(b[i]): 5;       end;   for i: =1 to 5 do      begin        if a[i]> 0 then //проверяем текущий элелмент массива а            begin                            j: =j+1;         //если он положительный, увеличиваем счетчик на 1               c[j]: =a[i]; //и добавляем этот элемент в массив с      end;         if b[i] mod 2 < > 0 then  //проверяем текущий элелмент массива в            begin            j: =j+1;                       //если он чётный, увеличиваем счетчик на 1            c[j]: =b[i];               //и добавляем этот элемент в массив с        end; end;   writeln('всего в массиве с ',j,' элементов: ');   for i: =1 to j do      writeln(c[i]); end.

program mazoff2; uses crt; const n = 20; var  mas: array [1..n] of real; //массив данных  i,j: integer; //счетчики  ur,pl: real; //урожай и площадьbegin  randomize;   for i: =1 to n do      begin          mas[i]: =random(101); //заполняем массив      end;       j: =1;       ur: =0;       pl: =0;       while j< =n do      begin          ur: =ur+mas[j]*mas[j+1];           pl: =pl+mas[j+1];           j: =j+2;       end;   writeln('всего собрано ',ur,' тонн с общей площади ',pl,' га.');   writeln('средняя урожайность равна ',ur/pl: 3: 2); end.

кстати, программа димана добавляет сначала все нужные элементы из массива а, а только потом - из массива в. а в условии сказано: "попеременно"