1)      Даны массивы А и В размерности n.Сформировать массив С по

vara:array[1..n] of integer;b:array[1..n] of integer;c:array[1..n] of integer;max,i:integer;beginmax:=0;for i:=1 to length(a) dobeginif a[i]>0 then max:=a[i];end;for i:=1 to length(b) dobeginif b[i]>0 then max:=b[i];end;for i:=1 to length(c) dobeginc[i]:=max;end;end;