Program S1; const n=10; var S: array[1..n] of integer; C: array[1..n] of integer; i,t:integer;begin write('Исходный массив: '); for i:=1 to n do begin S[i]:=random(15);
write(S[i],' '); end; writeln; for i:=1 to n do begin S[i]:=abs(S[i]); write(S[i],' '); end; writeln; for i:=1 to n do begin if S[i] mod 3 = 0 then S[i]:=S[i] mod 2 else S[i]:=S[i]+2; write(S[i],' '); end; writeln; for i:=1 to n do if (S[i] mod 4 = 0) and (i mod 2 = 0)then write(i,' '); end.