Разработать схему алгоритма который вводит массив из n целых чисел выволит номера отрицательных элементов и сами эти элементы

блок-схема - во вложении.

 

program poliklolik; const n=10; var a: array[1..n] of integer;   i: integer;   begin  writeln('*** alphaues is ***');   writeln('***                  ok!                       ***');   for i: =1 to n do  begin      write('введите ',i,'-e число ');       readln(a[i]);   end;   writeln('отрицательные элементы массива: ');   for i: =1 to n do      if a[i]< 0 then writeln(i,'-й:   ',a[i]);   writeln('***              the end                  ***'); end.

for(i: =1 to n) a[i]: =random(101); // заполняшь массив a целыми числами в диапозоне от 0 до 100

cхема вывода  номера отрицательного элемента и самого этого элемента.

for(i: =1 to n) do if a[i]< 0 then write(i,' ',a[i],'       '); // a это массив по которому ты пробегешся.

Программа вычисляет значение выражения, состоящего из целых чисел и знаков "+"/"-" между ними. (контроля правильности ввода нет! ) var s,t: string; i,a,b,c: integer; begin write('введите выражение: '); readln(s); a: =0; t: =''; for i: =1 to length(s) do   begin   if (s[i]< > '-')and(s[i]< > '+')and(s[i]< > '=')   then t: =t+s[i]   else begin val(t,b,c); a: =a+b; t: =s[i]; end;   end; writeln(s,a); end. пример: введите выражение: 12+34-10= 12+34-10=36

16 цветов кодируются 4 битами (2^4=16), т. е. при 256 кб (килобит) может быть адресовано 256/16=16 к 16-цветных пикселей. количество пикселей в экране будет в*г (в - вертикальное разрешение, г-горизонтальное) . при указанном соотношении 1,33 (4: 3) будет верным равенство в*г=(4/3)*в^2. тогда в=кв. корень [(3/4)*16384/c] (16к=16384, с-количество страниц) .  при с=1 выходит в=110. ясное дело, вертикальное разрешение должно быть целым, т. е. это будет 110 или 111. поскольку г=в*4/3=147. горизонтальное разрешение тоже должно быть целым, выходит 147 или 148. т. е. возможны разрешения 147*111 (всего 16317 пикселей из 16384 возможных) либо 148*110 (16280 пикселей)  при с=2 выйдет в=78.=104.. е. возможно разрешение 105*78 (всего 8190 пикселей из 8192 возможных) . для разрешения 104*79 не хватит памяти, поскольку 8216> 8192.  при с=4 выйдет в=55.=73.. е. возможны разрешения 74*55 (всего 4070 пикселей из 4096 возможных) или 73*56 (4088 из 4096).