Запишите заголовки цикла for для изменения параметра из диапазонов от -10 до + от 100 до 1 от 15 до 25 от -10 до -20

For index: = -10 to 10 do for index: =   100 downto 1 do for index: =   15 to 25 do for index: = -10 downto -20 do

Const       m = 5;       n = 4; var       a: array[1..m, 1..n] of real;       i, j: integer;       max: real; begin       for i : = 1 to m do begin               writeln();               for j : = 1 to n do begin                       a[i,j] : = random(200) - 100;                       write(a[i,j]: 5, ' ');                         if ((i=1) and (j=1)) or (max < abs(a[i,j])) then                               max: =abs(a[i,j]);               end;       end;           writeln();       writeln('max = ', max);         for i : = 1 to m do begin               writeln();               for j : = 1 to n do begin                       a[i,j] : = a[i,j] / max;                       write(a[i,j]: 5: 2, ' ');               end;       end; end.

Procedure vvod(var q: mas; p: integer); var i: integer; begin for i: =1 to p do read(q[i]); end; program obrab(n: mas; w: integer; var max: real; ); var i: integer; begin max: =1; for i: =1 to w do begin if n[i]> 0 then max: =max*n[i]; end; end; program sravnenie(u: mas; o: mas; m.r: integer; maxa,maxb: real); var i,j: integer begin if maxa> maxb then begin for i: =1 to m do write(u[i]); end   else begin for i: =1 to r do write(o[i]); end; end; begin writeln('vvedite kol-vo elementov mas1'); readln(n); vvod(a,n); writeln('vvedite kol-vo elementov mas2'); readln(l); vvod(b,l); obrab(a,n,max1); obrab(b,l,max2); sravnenie(a,b,n,l,max1,max2); end.