Решите информатику 9 класс, буду

Const  n=15; var  a: array[1..n] of real;   i,imax,imin: byte;   t: real; begin  writeln('введите ',n,' элементов массива');   imax: =1; imin: =1;   for i: =1 to n do begin      read(a[i]);       if a[i]< a[imin] then imin: =i      else          if a[i]> a[imax] then imax: =i      end;   t: =a[imin]; a[imin]: =a[imax]; a[imax]: =t;   for i: =1 to n do write(a[i],' '); end.

Const n=10;   var a,b: array[1..n] of integer; i,j,c: integer;   begin writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(51)-25;   write(a[i]: 4);   end; writeln; j: =0; for i: =1 to n do   begin   c: =abs(a[i]) mod 10;   if (c=3)or(c=7)or(c=9) then begin j: =j+1; b[j]: =a[i]; end;   end; writeln('полученный массив: '); for i: =1 to j do write(b[i]: 4); writeln; end. пример: исходный массив:   17   6   15 -23   19   -5 -12 -14   5   20 полученный массив:   17 -23   19