Составить программу, которая организует ввод массива a [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

Var a: array[1..10] of integer; i: integer; begin   for i: =1 to 10 do   read(a[i]);   for i: =1 to 10 do   if (a[i]< 0) then a[i]: =abs(a[i]);   for i: =1 to 10 do   write(a[i],' ');   end.

/program granat; uses crt; var a: array [1..10] of integer; i,k,x,z,vsp: integer; begin write ('исходный массив: '); for i : = 1 to 10 do begin a[i]: =random(10); {заполняем массив}write (a[i]: 3); end; writeln; begin for k: =1 to 9 do begin x: =a[k]; vsp: =k; for i: =k+1 to 10 do if a[i]< x then begin x: =a[i]; vsp: =i; end; if vsp> k then begin z: =a[k]; a[k]: =a[vsp]; a[vsp]: =z; end; end; end; write ('отсортированный массив: '); for i : = 1 to 10 dowrite (a[i]: 3); writeln; begin for i: =1 to 10 do if a[i] mod 2 = 0 then  write (a[i]: 3); end; end.

Const n =50; var s,i,j,z: integer; m: array[1.. n] of integer; begin  writeln('размер массива');   s: = readinteger();   for i: =1 to s do    begin      m[i] : = random(100)-50;       write( m[i]: 4);     end;     writeln;     for i: =1 to s do    begin      j : = m[i]mod 4; z : = m[i]mod 6;       if (j = 0)or (z=0) then write(i: 4);     end; end.