Заполнить одномерный массив целых чисел из 12 элементов случайным образом. вывести его на экран. в следующей строке вывести элементы массива, имеющие порядковые номера 2, 3, 4, 9, 12. в следующей строке вывести максимальный элемент массива.

Uses crt; const n=12; var mas: array [1..n] of integer;     x,max: integer; begin       randomize;       for x: =1 to n do       begin           mas[x]: =random(99)+1;           writeln('mas[',x,']: ',mas[x]);       end;       max: =mas[1];       for x: =1 to n do           if mas[x]> max then max: =mas[x];       writeln;       writeln(mas[2],' ',mas[3],' ',mas[4],' ',mas[9],' ',mas[12]);       writeln('max=',max);       readln; end.      

Program gt; var a: array[1..12]of integer; n,i,max: integer; begin randomize; for i: =1 to 12 do begin a[i]: =random(100)-50; write(a[i],'  '); end; writeln; write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' '); max: =a[1]; for i: =2 to 12 do  begin if(a[i]> max)then max: =a[i]; end; writeln(max); end.

Могу подсказать идеи: в 1м используешь метод сортировки пузырьком, только не больше или меньше, а отрицательное или положительное во 2ом слишком просто, if(a[i]> b[i]) c[i]=a[i]; else c[i]=b[i]; в 3ем тоже дотсточно просто, пройтись циклом по массиву, и если число меньше нужного, а следующее больше, то пузырьком смещаешь все элементы выше i+1 вверх, а на i+1 вставляешь нужное число в 4ом пройти весь массив проверяя лучше через функцию каждое число на правильность в 5ом делаешь отдельный массив, в котором все сдавшие, и методом сложения всех чисел и деления на их количество находишь среднее. программы пиши сам, не честно на олимпиадах так нагло воровать, дальше всё равно не пройдёшь, в 8м классе на олимпиаде по информатике из 60 человек хоть что-то решили только 4, и то по 1ой

Var     i,j,p: integer;     a: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(5,150);   write(a[i],' ');   end; writeln; for i: =1 to 10 do     for j: =i to 10 do     if a[j]> a[i] then       begin       p: =a[i];       a[i]: =a[j];       a[j]: =p       end; writeln('отсортированный массив: '); for i: =1 to 10 do  write(a[i],' '); end.