щас сделаем
Вот и код. Если я не правельно понял задание, скажи
var a:array[1..n] of integer; b:array[1..n] of integer; c:array[1..n] of integer; max,i:integer; begin max:=0; for i:=1 to length(a) do begin if a[i]>0 then max:=a[i]; end; for i:=1 to length(b) do begin if b[i]>0 then max:=b[i]; end; for i:=1 to length(c) do begin c[i]:=max; end; end;