СРОЧНО НАДО

1.Заменить первый отрицательный элемент нулем

2.Умножить все элементы, кратные трем, на третий элемент массива

3.Из элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-Mi

1) var a:array[1..10] of integer;i:integer;begin randomize;for i:=1 to 10 do a[i]:=random(100)-40;writeln;i:=1;while i<=10 do begin if a[i]<0 then begin a[i]:=0;i:=11;end;inc(i);end;for i:=1 to 10 do write(a[i]:3);end.2)var a:array[1..10] of integer;i:integer;beginfor i:= i to 10 do read(a[i]);for i:= i to 10 doif a[i] mod 3 =0 then a[i]:=a[i]*3;for i:= i to 10 do write(a[i]);end.