Составить алгоритм при выполнении которого кузнечик перекрасит: а) все положительные четные числа; б) все положительные нечетные числа. начальное положение - точка 0. система команд кузнечика: вперёд 2 - кузнечик прыгает вперёд на 2 единицы; назад 1 - кузнечик прыгает назад на 1 единицу. пределы от 0 до 20.​

Var   a: array of integer;   i,b,c,max: integer; begin   write('введите размер массива - ');   readln(c);   setlength(a,c);   writeln('введите элементы массива - ');   max: =0;   b: =1;   for i: =0 to c-1 do begin       read(a[i]);       if a[i] > a[max] then max: =i;       if a[i] mod 2 < > 0 then b: =b*a[i];         end;   a[max]: =b;   for i: =0 to c-1 do write(a[i]: 3); end.

Var   a: array[1..17] of real;   b,c,m,cr: real;   i,j: integer; begin   randomize;   for i: =1 to 17 do begin       a[i]: =random(-8,8);       write(a[i]: 3);   end;   writeln;   for j: =1 to 17 do if a[j] < 0 then  begin c: =c+a[j]; m: =m+1; end;   cr: =c/m;   for i: =1 to 17 do begin       if a[i] = 0 then a[i]: =cr;       write(a[i]: 3);   end;   end.